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IDENTIFICATION 


PRODUCT CODE: HAlNOEC-1 i-DTTNA-0 

PRODUCT NAME: Tun OEVICE ROUTINE FOP NPG 


DATE: 

NAINTAIfCR: 

AUTHOR: 


APRIL 197b 
SYSTEMS RELIABILITY 
C. E. HARPER 


COPYRIGHT (C) 1975. 197b 

digital equipment Corporation, haynard, rwss. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE Dft v 
ON A SINGLE CONPUTER SYSTEN AND MAY BE COPIED ONLY WIT* 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE. OR ANY OT»£R COPIES THEREOF. NAY NOT BE PRO- 
VIDED OR OTHERWISE NAuE AVAILABLE TO k" OT>€R PERSON 
EXCEPT FOR USE ON SUCH SYSTEN AfC TO ONE WHO AGREES TO 
THESE LICENSE TERNS. TITLE TO AND OtfCRSHlP OF THE 
SOFTWARE SHALL AT ALL TINES REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AfC SHOULi 


IN THIS DOCUMENT IS SUBJECT TO CHANGE 
rc SHOULD NOT BE CONSTRUED AS A CONN: t NEV 


BY DIGITAL EOUlPfCNT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NC T SJP^IED 9' 

wtw . 
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REVISION HISTORY 


.sbttl revision HISTORY 
RPR 7b DTTHR-B RELERSE 

OEC 7S NAOE CHANGES REQUIRED FOR THE MEMORY MANAGEMENT 
VERSION OF NPG. 

DEC 75 HILL NOW DISPLAY THE ENTIRE UNIT i BYTE IN OCTfiL 
FOR INVALID UNIT I ERROR MESSAGES. 

RUG 75 D7 T MA-A INITIAL RELEASE 
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STANDARD DEVICE P0u T I-€ TABLE 


57 

58 

59 
bC 
bl 


fc* 

b5 

bb 

b7 

bS 

b9 


7c 

73 

74 

75 
7b 

77 

78 

79 

80 
81 
82 
83 

It 

8b 

87 

88 

89 

90 

91 

92 

93 

94 

95 
9b 

97 

98 

99 
100 
101 
102 
133 

104 

105 
10b 

107 

108 
109 
11C 
ill 


000000 - 

000002 - 


000022 - 

000024’ 

00002b’ 

000030’ 

000032- 

000034 


XCDOO* 


0053H0 

OOOOOC 


ooooos* 

000006 - 

OOOOlu’ 

000012 - 

000014- 

m 


000000 

000000 

oooox 

uCXOO 

000000 


1 

000000 

172520 

00022 " 

00G240 

cooooo 

XI 022 


w m 


000042' 

000044* 

0000 %’ 

000050- 

000052* 

000054- 


ini/: 


1524 
000752 
42 


000000 

000000 

000000 


IX 


(UWW t>W UwUUww 


L0C2: 

DFLGWD: 


RDRB: 

WRRB: 

EOF: 

EOT: 


SIZE: 

roe . 

DREGAD: 

IVCTAO: 

PSWD: 


CIOBSY: 

CUPGER: 

JUST: 

CLIST: 

8INASC: 

BTASLZ: 

DECASC: 

CSYSFW: 

SETVEC : 


.SBTTL STATOARD DEVICE ROUTINE TABLE 

.TITLE NAIfCEC-ll-0 T THA-8 TMll'TUlQ DEVICE ROUTINE FOR NPG 
;R£VISI0N -B- 

;FILENANE OF "TTNABQ.HPG-* ON HPG/XXDP MEDIA 

;f1ACYl 1 : DTTNA’.DTTNA’/CRF: SYM/OOC=DTTMA’ . Pi 1 
;LNKX11 : DTTNA’ . HPG/B: O^DTTNA’ /E 
; PAPER TAPE: PUNCH DTTNA\NPG/FILE:ELEV 

. C5ECT TH11 
.DSA6L GBL 


; THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT REQUIRED 
; TO INTERFACE WITH NPG. 


.WORD DVREND-. 
.WORD 0 


.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 


0 

.WORD 

0 

.WORD 

1 

.WORD 

0 

.WORD 

172520 

.WORD 

224 

.WORD 

240 

.WORD 

0 

.WORD 

H5KEEP-. 

.WORD 

REPORT-. 

.WORD 

KILL-. 

.WORD 

DATAER-. 

.WORD 

TOUTER-. 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.WORD 

c 


DEVICE ROUT 
DEVICE ROUT 


BIT 15 = " NOWAIT" 


SIZE IN BYTES 
'LAGWORD 


IT 14 
IT 13 




FLAG 

BIT 

BIT 


BIT 11 = EVEN PARITY BIT 

115 ? i 

BIT 0 


= ERROR ON I/O CflTC 
OF ROLLBACKS FOR REAO 
OF ROLLBACKS FOR WRITE 
= EOF 

= EOT ENCOUNTJ 

INTERFACE WORD I S (NOT USED) 

INTERFAX WORD I b (NQ T USED) 

I OF BYTES TRANSFERRED / UN I NAP FLi 
ERROR ON LAST I/O IfCICATOR 
FIRST DEVICE REGISTER ADR 
INTERRUPT VECTOR ADR 
INT PROC STATUS WORO (BR 5) 

NOT USED 

HOUSEKEEPING ROUT R£L ADR 
PORT ROUT REL ADR 
LL ROUT REL ADR 
DATA ERROR COUNTER REL ADR 
TINE OUT ERROR ROUT REL ADR 
I/O BUSY BRANCH AOR 
DEVICE ERROR BRANCH AOR 
USER NODE PRINi ROUTINE BRANCH AOR 
CW€ NODE PRINT CJOUTIfC BRANCH AOR 
CONVEFT BINARY TO ASCII ROUT BR AOR 
CONVERT BINARY TO DECIMAL ASCII BR AD* 
CONVERT PACKED DECIMAL t 0 ASCII BP ACP 
NPG SYSTEM FLAGWORD ADR 
SET INT VECT PC.’ BP AGP 


' , a:ndec-u-o’ t na-b thu tuio device routijc for npg hacyh 

:’ T NA8.Pil STANOARD DEVICE ROUTIfC TABLE 
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’RETURN FROM INT ROUT BR AOR 
GET DATA BYTE ROUT BR AOR 
PUT DATA BYTE ROUT BR AOR 
ADR OF DEVICE REGISTER NAMES 
ADR OF DEVICE FUNCTIONS 
ADR OF PACK TBL EXTENSION 
ADR OF MODEL VECTOR TBL EXTEN. 
ADR OF COMPILER TBL EXTEN. 

ADR OF DEV INTERFACE WO SYH TBL 


VALID DEVICE REGISTER NAMES l 
THEIR POSITIONS RELATIVE TO 
THE DEVICE REGISTERS BASE AODRESS. 


VALID DEVICE FUNCTIONS 
FLAG BYTE: 

BIT 7 = NPR DEV 
BIT 3 = rWSSBUS DEV 
BIT 0 = 2 WORDS FOR ADR 
(18 BI T ADRS 


i 


‘AINDEC-U-OTTNA-B Tflli/TUIO DEVICE ROUTINE FOR NPG 
'’’NAB-Pl' STANDARD DEVICE ROUTINE TABLE 


000254’ 00135b 



ojljp; 

000314’ 

000322’ 

000324’ 

000332’ 


000342’ 

000344’ 

000352’ 

000354’ 

000362’ 

000364’ 

000372’ 

000374’ 

000402’ 

000404’ 

000412’ 

000414’ 

000422’ 

000424’ 

000432’ 

000434’ 

000442’ 

000444’ 

000450’ 

000454’ 

000460’ 

000464’ 

000470’ 

000474’ 

000500’ 

000504’ 

000510’ 

000514’ 

000520’ 

000524’ 

000530’ 


047516 

376 

020040 

375 

047503 

373 

051103 

372 

051127 

371 

053440 

370 

051440 

367 

051440 

366 

042522 

365 

043117 

364 

020040 

363 

020040 

362 

020040 

361 

000376 

000375 

000374 

000373 

000372 

000371 

000370 

000367 


000365 

000364 

000363 

000362 

000361 


040527 

000 

040527 

tXX3 

052101 

000 

047125 

000 

051505 

000 

044505 

000 

042522 

000 

043120 

000 

051120 

000 

044527 

000 

046106 

000 

0S3105 

000 

047440 

000 

041040 

000 

000732 

000732 

000732 

000732 

000732 

000733 

000732 

000742 

000742 

000732 

000732 

000732 

000732 

000742 


.UORO 

.BYTE 


052111 DVPKTE: .ASCII 
.BYTE 

052111 .ASCII 

.BYTE 

051525 .ASCII 

.BYTE 

051524 .ASCII 

.BYTE 

052105 .ASCII 

.BYTE 

043522 .ASCII 

.BYTE 

043117 .ASCII 

.BYTE 

042127 .ASCII 

.BYTE 

053105 .ASCII 

.BYTE 

042116 .ASCII 

.BYTE 

047111 .ASCII 

.BYTE 

047105 .ASCII 

.BYTE 

042104 .ASCII 

.BYTE 

044520 .ASCII 

.BYTE 

DVHVTE: .WORD 


.UORO 


F01 

riACYll 27(732 ) 24-SI 


ODD-. 


17*777 

/NOUAIT/ 

376.0 

/ ilAIT/ 

375.0 
/STATUS/ 

374.0 

/coGnts/ 

373.0 

/cr£set/ 

372.0 

/ur£irg/ 

371.0 

/ uAeof/ 

370.0 

/ SPFUO/ 

367.0 

/ sArev/ 

366.0 
/REWIND/ 

365.0 
/ofAlin/ 

364.0 

/ EVEN/ 

363.0 

/ ODD/ 

362.0 

/ BPI/ 

361.0 

376,LNWAIT-L0CZ 
375.LUAIT-L0CZ 
37M,LSTATS-L0CZ 
373 , LCQUNT -LQCZ 
372 LCRST-LOCZ 
371.LHEIRG-L0CZ 
370,U#€0F-L0CZ 
367, LSPFUO-LOCZ 
366, LSPREV-LOCZ 
365 LRWIND-LOCZ 
364 , LOFFLN-lOCZ 
363 LEVEN-LOCZ 
362 , LODD-LOCZ 
361.LBPI-L0CZ 


000534’ 003 376 
000536’ Q04S37 000012 
200542’ 003 375 
300544’ 0C4S27 000012 


; COMPILER TABLE EXTENSION 

6vCPTE: .BYTE 3,376 

.WORD 4537.10. 

.BY^E 3.37b 
.WORD 4§37, 10. 


'-76 14:00 PAGE 3-2 


5E3 0352 


; TABLE TERMINATOR 
;PACK TABLE EXTENSION 


; MODEL VECTOR T AB^E EXTEN. 


;N0 WAIT 
;UAIT 


SEi 034 


F0R ^ rwCYli ?7(732) 2M - S£p - 7b 14:00 p «* 3 ' 3 


GOl 


3550’ 004 

£8- °° 4 & 7 

05 00H537 


000572’ 

HQ-’ 

000606’ 

ooobi?’ 

000614’ 

000520’ 


004537 


000632’ 

000640’ 

000642’ 

0006% 

000650’ 

000654’ 

000656’ 

000662’ 

000664* 

000670’ 

000672’ 


004537 

000002 

003 
004537 

004 
004537 

004 

004537 

003 

004537 

003 

004537 

003 

004537 

003 
004537 

004 
004537 


°°°$ 

000012 

000^12 

000002 

370 

000012 

367 

000012 

366 

000012 

365 

000012 

364 

000012 

363 

000012 

362 

000012 

361 

000012 


001002 

001001 


000000 


000000 

oooooc 


000000 


.BYTE 4.374 
.WORD 4537.10. .1002 
. BYTE 4.373 

.WORD 4537.10. 

-BYTE b.37i 
• WORO 4537, 10. .0,2,2 

•BYTE 3.370 
•UORO 4537.10. 

.BYTE 4.36* 

.WORD 4537.10. ,0 
.BYTE 4.365 
.WORD 4537. 10., 0 
.BYTE 3.365 
.UORO 4537,10. 

.BYTE 3.36^ 

.WORD 4537.10. 

.BYTE 3. 363 
.WORD 4537.10. 

.BYTE 3.363 
.WORD 4537.10. 

.BYTE 4.361 
.WORD 4537, 10., 0 


STATUS 

COUNTS 

CONTROL RESET 

WRITE EXTENDED INTER-PECOPC 5fi c 

WRITE ENO OF FILE 
SPACE FORWARD 
SPACE REVERSE 
REWIND 
OFFLINE 


000700’ 

000704* 

000706’ 

000712’ 

000714’ 

000720’ 

000722’ 

000726’ 

000730’ 


000732' 

000732’ 

000732' 

000732’ 

000732’ 

000732 ' 

000732' 

000732’ 

000732’ 

» 

000740' 

300742’ 

300742' 


042122 041122 
000004 

051127 041122 
000006 

047505 020106 
000010 

047505 020124 
000012 
177777 


ftviWST: 


DEVICE INTERFACE WORD SYMBOL TABLE 

.ASCII /RORB/ 

.WORD DEVIWi 
.ASCII /URRB/ 

.WORD DEVIW2 
.ASCII /EOF / 

.WORD DEVIU3 
.ASCII /EOT / 

.WORD DEVIW4 
.WORD 


DEVIW4 

177777 


:ENC OF ’ABuE 


MODEL STATEMEN T TABLE EXTENSION 


llNWAIT: 

LWAIT: 

LSTATS: 

LCOUNT : 

LWREOF: 

LRUIND: 

LOFFLN: 

LEVEN: 

LOOD: 

COO LCR5T: 

377 051106 046517 LUEIRG: 
000377 

LSPFUO: 

LSPREV: 


.BYTE 0 

. ASCIZ <377>/FP0f1/'377> 


-AINDEC-Il-D'-TNA-B TNI 1 / TU10 DEVICE ROUTIfC FOR flPG 
C’TNAS.Pil STANOARD DEVICE ROUTIfC TABLE 
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279 

000742* 

377 000 

LBPI: .BYT 

377. Q 

280 



.EVEN 

281 





292 


000744’ 

5)00000 

HSKPSTs . 


283 

000744' 

000746’ 

000750’ 

0007S2’ 

000754- 

000756’ 

ISTAT: .WORD 

0 

284 

000000 

.WORD 

0 

28S 

000000 

.WORD 

0 

296 

000000 

.WORD 

0 

287 

000000 

.WORD 

0 

288 

000000 

.WORD 

0 

289 





090 

000760’ 

000006 

CSTAT: .BLKU 

6 

291 





292 

000774’ 

000776’ 

ooiooo- 


BYRD: .WORD 

0 

293 

000000 

.WORD 

0 

294 

000000 

BYWR: .WORD 

0 

295 

001002’ 

001004- 

001006’ 

001010’ 

000000 

.WORD 

0 

296 

000000 

RDCNT: .WORD 

0 

297 

000000 

WRCNT: .WORD 

0 

298 

299 

300 

000000 

NISCNT : .WORD 

0 

001012’ 

001014’ 

000000 

RRBCNT : .WORD 

0 

301 

000000 

WR8CNT: .WORD 

0 

302 

001016’ 

000000 

EOF CNT: .WORD 

0 

303 

001020- 

001022’ 

001024’ 

000000 

EOTCNT: .WORD 

0 

304 

000000 

ERRCNT : .WORD 

0 

305 

000000 

DATAER: .WORD 

0 

306 

307 

308 

001026’ 

000000 

INTCNT. .WORD 

c 

001030’ 

001032’ 

000000 

TOECNT: .WORD 

0 

309 

000000 

TOENAX: .WORD 

0 

310 

001034’ 

001036’ 

001040’ 

001042’ 

001044’ 

000000 

ERRAOR: .WORD 

0 

311 

000000 

CNT ADR: .WORD 

0 

312 

000000 

CURFLG: .WORD 

0 

313 

000000 

CURCNT: .WORO 

0 

314 

000000 

FINCNT: .WORD 

0 

3iS 

001046’ 

OCQOOO 

RBCNO: .WORD 

0 

31b 

001050' 

000000 

RBAOR: .WORD 

0 

317 

001052’ 

000000 

RBCNT: .WORD 

0 

318 

oaios4- 

000000 

NUNRB: .WORD 

0 

31S 


001056’ 

HSKPEN= . 


"2 ** . 


000000 

XXXX= Q 



; STORAGE FOR DEV REG'S AT INT 


;DEV REG CURRENT VALUES STORAGE 


; BYTES READ COUNT (READ) 

.-BYTES WRITTEN COUNT (WRITE S WREIRG) 

READ CrtC COUNT (READ) 

WRITE CNND COUNT (l*ITE & WREIRG) 

NISC. CNND COUNT (WREOF. SPFWD, SPREV. 
REWIND. OFFLIN. & CRES^T) 

» OF reAo ROLLBACKS 

• OF WRITE ROLLBACKS 
« OF EOF’S 

• OF EOT'S 

DEVICE ERRORS COUNT 
DATA ERRORS COUNT 
INTERRUPTS COUNT 

« OF ENTRIES INTO T/0 ERROR ROUT 

MAX « OF TIHEOUTS 

CURR ADR IN USER PROG 

ADR OF BYTE COUNT TOTALS 

FLAG WORD OF CURR CNND 

BYTE CNT FOR CURR CNNO 

FINAL WORD COUNT (NBRC) 

CURR CNNO FOR ROLLBACK 
CURR ADR FOR ROLLBACK 
CURR BYTE CNT FOR ROLLBACK 
NUN8ER OF ROLLBACKS ON CURR CNND 


.-VALJE T C BE TAILORED BY DEV POU T 


•*4I*iDEC-il-:r T NA-B TH1MU10 DEVICE ROUTIfC FOR NPG 

cttnab.p:; T ni support routes entered from hpg 


ioi 
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5EG 23% 


.S8TTL TN11 SUPPORT ROUTIfCS ENTERED FROM NPG 


.-DEVICE ROUTINE HOUSEKEEPING 


?8 
328 
332 

331 

332 

333 

334 
J3S 

336 

337 
(38 

338 
34Q 
341 
34? 

343 

344 

345 
34b 

347 

348 
348 

350 

351 

352 

353 

354 

355 
35b 
337 
358 


00105b’ 

0C1064’ 

001072’ 

001100 ’ 

001102 ’ 

001104’ 

001110 * 

001112 * 

001114’ 

001120 ’ 


012787 

012787 

012787 

00572S 

001003 

032702 

001010 

010700 

082700 

0127J1 



501130’ 

001132’ 


001375 

000205 


080000 

000001 

000003 


000004 


177830 

000045 


178712 

178708 


10S: 


205: 


305: 


JSR 

.WORD 


RS.HSKEEP 

o Or i 


178716 HSKEEP: NOV 


NOV 

NOV 

TST 

BNE 

BIT 

BNE 

NOV 

ROD 

NOV 

CLR 

DEC 

BNE 

RTS 


R2 = PROG’S OPSW 
OESTROYS R0,R1 


•80000 .DFLGWD 

• l.RDRfi 

•3.URRB 

(R$H 

105 

•HSKPEP.R2 

305 

PC.RO 

•HSKPST-. .RO 

•HSKPEN-HSKPST/2.R1 

(RQH 

Rl 

205 

R5 


358 

001134’ 

001140' 

004087 

002702 

REPORT: 

JSR 

3bO 

032715 

177776 


BIT 

381 001144’ 

382 001148’ 

« 



BNE 

NOV 

383 

001150’ 

082700 

177624 


AOD 

384 

001 154’ 

012701 

005720 

000C16 


NOV 

385 

001180’ 


55: 

TST 

3bb 

001182’ 

001003 



BNE 

Ob’ 7 

001184’ 

005301 



DEC 

388 

001188’ 

001374 



BNE 

3b8 

001170’ 

000513 



BR 

370 

001172’ 

004787 

002876 

105: 

JSR 

371 

001178' 

001200’ 

012504 



NOV 

372 

032704 

000002 


BIT 

373 

3’4 

881182 - 

001443 

004567 

002706 


BEG 

JSR 

375 

001212’ 

177546 



.WORD 

378 

001214’ 

3C1216’ 

010700 



NOV 


082700 

177526 


ADC 

rs 

301222' 

012701 

000006 


MOV 


; TNI 1 REPORT ROUTINE 


JSR R5. REPORT 
.WORD FLfiHO 


RO.SAVREG 
•1^7776, iRS) 

®?0 
•BYRD- . , RO 
•14. Rl 

( RO ) -V 

105 

Rl 

55 

DVREX 

PC.SUPTAD 

(R5)+,R4 

•2.R4 

DlSCNT 

R5.STSTAT 

CSTAT-. 

PC.RO 

•ISTRT-..RO 
•8, PI 


S/R C%L 

0 = DO HSKP PER OPSU 

1 = UNCONO. DO HSKP 


SET BPI TO 800 S PARITY TO ODD 
SET READ ROLLBACK CNT TO 1 
SET WRITE ROLLBACK CNT TO 3 
UNCONDITIONALLY DO HSKP’ 
N.Y-105 

OPSW SPECIFY EACH PASS HSKP’ 
Y.N-305 

SET UP FIRST UO AOR 

; SET UP • OF WORDS 
;HSKP ALL NECESSARY AREAS 


; EXIT IN-LINE 


S/R CALL 
FLAGWORD 
BIT IS 
BIT 8 
BIT 1 
BIT 0 


CNND NODE CALL 
PROG STNNT CALL 
DO STATUS REPORT 
DO COUNTS REPORT 


SAVE REG’S RO - R5 
DISPLAYING CNTS AT ENO OF 
PROG PASS’ (Y.N-10S) 

SET UP AOR OF CNTS 

GET « OF CNT WORDS 
THIS CNT WORD = 0’ 

Y.N-105 

DtCR WORD CNT 

CK’ED ALL UORDS’ (Y.N-55) 

GO TO EXIT — ALL CATS ARE 
SET UP PROG TBL ADR IN R3 
GET FLAGWORD 

GOING TO DO STATUS DISPLAY’ 
Y.N-DISCNT 

Gft STORE STATUS REG’S 

SET UP ADR OF REG'S AT 
LAST INT 

SE” JP I OF PEG'S 


O’S 



NAINDEC-11-D’ T NA-B Trill- TUiO DEVICE ROUTINE FOR NPG 
DTTfMB.PlI Tflll SUPPORT ROUTINES ENTERED FROfl NPG 

S3 ra : m m: si 

381 001238’ QQS301 DEC 


I 111: 

384 001240’ 

385 0^1g4| 

388 Q012S4’ 

388 001280’ 
380 001282’ 
391 001264’ 

$ 881i7° : 

384 001278’ 

385 001300’ 
3% 001304' 
387 001306’ 

3 8813: 

400 001320’ 

401 001324’ 

402 001328’ 

403 001332’ 

404 001334’ 

405 001340’ 

406 001342’ 

407 0013%’ 

408 001352’ 
408 001358’ 

410 001380’ 

411 001364’ 

412 001388’ 

413 001372’ 

414 001374’ 

415 001376’ 

416 QQ14Q0’ 

417 001404* 

418 001406’ 
418 001410’ 

420 Q01414’ 

421 Q01416’ 

422 001420’ 

423 001424’ 

424 001426’ 

425 
428 

427 001430’ 

428 001432’ 
428 001434’ 

430 001436’ 

431 001440’ 

432 001442’ 

433 001444’ 

434 001446’ 


005301 

m 

0047 |7 


012287 

004087 

011100 

004577 


004067 

005721 

005300 

001383 

004567 


002702 

003114 


000330 

004587 

003117 

177783 

004067 

005725 

000205 


003246 

003254 

003270 

003276 

003323 

003336 

003353 

003404 


000012 

002464 

176472 

002464 


002760 


002750 


002432 


004567 

002756 


JSR 

177464 



.WORD 

000402 



BR 

004767 

002656 

40$: 

JSR 

mi 

003070 

45$: 

JSR 

.WORD 

000012 



.WORD 

004567 

177454 

002732 


JSR 

.WORD 

004767 

003014 


JSR 

TO 

002626 

DISCNT : 

& 

032704 

000001 

DISCT1: 

BIT 

001431 



BEG 

012700 

000016 


NOV 

010701 



NOV 

062701 

177440 


ADD 

010702 



NOV 

062702 

000066 


ADO 


RPTLP: NOV 
JSR 
NOV 
JSR 

RP T BAS: .WORD 
JSR 
TST 
DEC 
BNE 
JSR 
.WORD 
.WORD 

RPTEND: JSR 
.WORD 
.WORD 

DVREX: JSR 
TST 
RTS 


REPTBL: 


.WORD 

.WORD 

.UORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


J01 

NACY11 27(732) 


(RO)* 

30$ 

Rl 

m 

PC f Disur*i 

R5. PRINT 

at!nsg-. 

12 . 

R5.DISPST 

ISTAT-. 

451 

PC, DISUNN 
R5. PRINT 
CUW1SG- . 

10 . 

RS.DISPST 

CStftT-. 

PC.PRTIWD 

K,8liuNN 

•1.R4 

RPTENO 

•14..R0 

PC.Rl 

•BYRD-. ,R1 

PC.R2 

•R^PTBL-. ,R2 

(R2H.RPTBAS 

RO.SA<rREG 

(Ri).RO 

R5.MINRSC 

xxix 

RO.RESREG 

(Rl)+ 

RO . 

RPTLP 

R5.PRINT 

CNtSMG-. 

CNTSEN-CNTSNG 

R5. PRINT 

RENDNG-. 

-13. 

RO.RESREG 

(R5H 

R5 


BCHRO-RPTBAS 

BCMRD+6-RPTBAS 

BCNWR-RPTBAS 

BCMWR+6-RPTBAS 

CNDCRD-RPTBRS 

CHDCWR-RPTBAS 

CNDCNS-RPTBAS 

CNTRRB-RPTBAS 


-SEP-76 14:00 PAGE 4-1 


SEQ 038 


;ALL REG’S = 0’ 
;N, Y-4Q$ 


jDISPLAY CURR UNIT « 

; ISSUE ’AT LAST INT' NSG 


;G0 DISPLAY STATUS AT LAST INT 

; CONTINUE DISPLAY 
; DISPLAY CURR UNIT • 

; ISSUE ’CURRENTLY 1 NSG 


GO DISPLAY CURRENT STATUS 

GO DISPLAY INFO WORDS 
CHECK FOR COUNTS DISPLAY 
DISPLAY CURR UNIT I 
DISPLAY COUNTS’ 

Y N-RPTENO 

S^T UP I OF WORDS 

SET UP ADR OF CNTS 

SET UP TBL ADR 


NOV NSG AOR TO S/R LINKAGE 
SAVE ALL REG’S 
GET CURRENT COUNT 
CONVERT IT TO ASCII 

RESTORE REG’S 
POINT AT NXT CNT 
DONE ALL WORDS’ 

Y.N-RPTLP 

GO ISSUE COUNTS NSG 


; ISSUE "END OF REPORT" NSG 


; RESTORE REGISTERS 
; SET UP RETURN POINT 
;EXIT IN-LINE 
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SFO 


435 DCI450’ 003417 
43b 001452' Q03444 

437 001454 ’ 003462 

438 00145b’ Q03S11 
001450’ 003525 


433 

440 

441 

442 

443 

444 

445 
44fe 

447 

448 
443 

450 

451 

452 

453 

454 

455 
45b 

457 

458 
453 
4b0 
4b 1 
4 52 
4b3 
u 64 
4bS 
4bb 
4b7 
458 
4b3 

470 

471 

472 

473 

474 

475 
47b , 

477 

478 
473 


001464’ 005257 
001470’ 125757 
001475’ 001031 
001500’ 004057 
001504’ 004757 


00 

00 

88 

00 

88 

00 


510’ 

514’ 


004557 
177244 
>7 


.524’ 112714 

!S»: H£f£ 

[540’ 004557 
001544’ 001544 
0015%’ 000015 
001550’ 004067 

ooiiis : m 

001552’ 000205 


001554’ 004557 
001570’ 000407 
001572’ 016701 
001576’ 112761 
001604’ 004767 
0016 10’ 000205 


.WORD 

• WC 


001452’ 003554 


.WORD 

.WORD 

.WORD 


CNTWR9-RPTBAS 

mV* 

CNTERR-RPTE 
CNTDER-RPTBPS 
CNTINT-RPTBAS 


.-TIMEOUT ERROR ROUTINE 


177340 

177334 177335 

002336 

002364 

002404 

002270 

000011 


TOUTER: INC 
CMP8 
BNE 
JSR 
J5R 
JSR 
.WORD 
JSR 
BR 

MOVB 


001440 

002302 

176266 


1 OS; 


fl? 


[C 

JSR 

.WORD 

.WORD 

JSR 

, MOV 

! JMP 

TOUTEX: RTS 


; JSR R5. TOUTER 
TOECNT 

TOECNT, TOEMAX+i 

TOUTEX 

RO.SAVREG 

PC.SUPTAD 

RSlSTSTAT 

CSTAT-. 

?§i TVECT 

111. (R4) 

PC.AlNTV 

IWt4lOT.(R3) 

R5.ERRCS1 

IOto-ERMBAS 

14. 

RO.RESREG 

(SPH.RS 

3CUPG& 

R5 


; KILL USER PROGRAM ROUTINE 


S/R CALL 

I NCR « OF TIMEOUTS THAT OCCURRED 
AT MAX • OF TIMEOUTS IN A ROW’ 
Y.N-TOUTEX 
SAVE ALL REGISTERS 

flDR,s 

88 feTWR 1 " CWTR0L, 

RESET INT ENABLE 
ISSUE TIMEOUT ERROR MSG 


RESTORE REGISTERS 
REMOVE RETURN ADR 
GO TO ERROR EXIT 
EXIT IN-LINE 


JSR RS.KILL S/R CALL 

R3 MUST CONTAIN PROG TBL ADR 
DESTROYS RO.Rl 


002222 

176226 

000011 000002 
002156 


KILL: JSR 

BR 
MOV 
MOVB 
JSR 

KILLEX: RTS 


R5, TVECT 

KILLEX 

DREGAO.Rl 

tll.2(ftl) 

pc.Aintv 

R5 


; CK IF I HAVE VECTOR CONTROL 
; BR IF I DON’T 
;GET DEV REG ADR 
; RESET INT ENABLE 
; RESET INT VECTOR INFO 
; EXIT IN-LINE 


033 



L01 
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DTTNAB.Pll mil FUNCTION ROUTINES 


SEO 0300 


481 

482 

483 
4f 
41 
4[ 

407 001612’ 

408 001620’ 
480 001624' 

400 001630’ 

401 

402 

403 

404 

405 

406 

407 001632’ 
400 001640’ 
4 r 


042767 

004767 

004767 

00020S 


052767 

000205 


18 ? 


1 

502 

503 

504 

i8i 

507 

508 
500 

510 

511 

512 

513 001652’ 

514 001660’ 

515 

516 

517 
51B 
510 

520 

521 

522 001662’ 

523 001666’ 

524 001670’ 

525 00 1672’ 

526 001676’ 

527 001700’ 

528 001702’ 
0Q17Q4’ 
001706’ 

531 001710’ 

532 001716’ 

533 001720’ 

534 001724’ 

535 001726’ 

536 001732’ 


& 7 


052767 

000205 


004767 

012500 

010701 

m 

100412 

112103 


137 
042767 
000303 
050367 
000205 
004767 
042767 


100000 176162 WAIT: 

001252 

002136 


400000 176142 NOWAIT: 


004000 176132 ODD: 


004000 176122 EVEN: 


.S8TTL TlUl FUNCTION ROUTINES 

; "UAIT" FUNCTION ROUTINE 

; JSR RS.UAIT 

BIC #100000 .DFLGWD 

JSR PC,CKDB$Y 

JSR PC.RINTV 

RTS R5 

;**NOWAIT“ FUNCTION ROUTINE 

; JSR R5, NOWAIT 

BIS #100000, DFLGWD 

RTS R5 

; -ODD- FUNCTION ROUTINE 

; JSR R5,0DD 

BIC #4000, DFLGWD 

RTS R5 

; “EVEN** FUNCTION ROUTINE 

; JSR R5,EVEN 

BIS #4000 , DFLGWD 

RTS R5 

:**BPI" FUNCTION ROUTINE 


; JSR 
: .WORD 


R5.BPI 

VAdUE 


001274 


BPI: 

JSR 

MOV 

MOV 

000060 


10S: 

ADD 

MOVB 

BMI 

MOVB 

CMP 

BNE 

060000 

176056 

176064 


BIC 

SWAB 

BIS 

RTS 

002142 


BPIER: 

JSR 

000010 

176042 


BIC 


PC.STSADR 
CR$)4-,R0 
PC.Rl 

» 

( 


fe- R1 

BPIER 

(Ri)+,R3 

#60000, DFLGWD 

R3 

R3, DFLGWD 
R5 . 
PC.SUPTAD 
#10, DFLGWD 


FUNCTION CALL 

; RESET THE "NOWAIT" FLAG 
;UAIT IF BUSY & DO TERMINATION 
; RESET THE INTERRUPT VECTOR 
;EXIT IN-LINE 


FUNCTION CALL 

; SET THE "NOWAIT" FLAG 
; EXIT IN-LINE 


FUNCTION CALL 

; RESET THE EVEN FLAG 
; EXIT IN-LINE 


FUNCTION CALL 

; SET THE EVEN FLAG 
.-EXIT IN-LINE 


FUNCTION CALL 
BPI BITS VALUE 

STORE THIS STUNT’S MEM ADR 
GET BIT VALUES 

SET UP AOR OF VALID BPI VALJES 

GET VALID VALUE 

END OF TBL’ CN.Y-BPIER) 

GET CORRESP. BIT VALUES 
MATCH THIS VALID VALUE ^ 

Y.N-10I 

RESET BPI BITS IN FLGWO 

ALIGN BIT VALUES 

SET IN NEW BPI BIT VALUES 

EXIT TO USER PROG 

SET UP PROG TBL ADR 

HOUSEKEEP ERROR FLAG 
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SEi 040C 


; REPORT I MV BP I VALUE ERROR 

;GO TO ERROR EXIT 
; VALID BPI VALUES 


FUNCTION CALL 

DATA ADDRESS (BITS lb S 17) 
DATA ADDRESS (BITS 0 - IS) 
BYTE COUNT 
(NOT USED) 


; SET UP RE AO CMND CODE 
; SET UP READ FLAG WORD 
; GO CK IF DEV IS BUSY 
;AOD 1 TO READ CMNO CNT 
; SET UP ADR OF BYTES READ CNT 


;GO TO CMND COMMON PROCESSING 


FUNCTION CALL 

DATA ADDRESS (BITS lb S 17) 

DATA ADDRESS (BITS 0-15) 

BYTE COUNT 
(NOT USED) 

; SET UP WRITE CMND CODE 

; SET UP CMND FLAG WORD 

;G0 CK IF DEV IS BUSY 

; ADD 1 TO WRITE CMND CNT 

; SET UP ADR OF BYTES WRITTEN CNT 

;G0 TO CMND COMMON PROCESSING 


FUNCTION CALL 

DATA ADDRESS (BITS lb & 17) 
DATA ADDRESS (BITS 0-15) 

8YTE COUNT 

; SET UP WREIRG CMND CODE 
; SET UP CMND FLAG WORD. 

;G0 TO COMMON WRITE PROCESSING 


HhINDCC- 11-DTTMA-B Tflll'TUlO DEVICE ROUTINE FOR MPG 
DTTNAB.P11 Tffll FUNCTION ROUTINES 
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593 

594 

595 

i 881 ®: 

599 00205b ’ 

bOO 

bOl 

b02 

b03 

504 

505 
SOfc 

b07 002070’ 
b08 002074 ’ 
b09 002100’ 
510 00210M’ 
bll 002110’ 
b 12 


012701 

012702 

00075b 


BIS 002112’ 

520 00211b’ 

52 1 


b2 7 QQ2120’ 
b28 002 124’ 
b29 002130’ 
b30 


b3b 002132’ 
b37 00213b’ 
b3B 002192’ 
b39 

540 

541 

542 

543 

544 

545 002144’ 
545 002150’ 
54? 002154’ 
b48 002 lbO’ 


012701 

012702 

004757 

005257 

000425 


012701 

000755 


012701 

012702 

000753 


012701 

012702 

000755 


000107 

000450 


000111 

003014 

OQ077E’ 

175700 


000113 


000117 

011510 


000101 

$0410 


004757 000725 
005257 175534 
004757 001714 
052714 010000 


;"WREOF" FUNCTION ROUTIfC 
; J5R R5.URE0F 


WREOF: NOV 1107, Rl 

NOV 1450 !R2 

BR URCOH 


;"SPFWD“ FUNCTION ROUTINE 


SPFMD: MOV 
SPCOM: NOV 
NISCON: JSR 
INC 
’ BR 


; JSR RS.SPFWD 

; . WORD CNt 

•111 .Rl 
•3014. R2 
PC.CK&BSY 
NIbCNT 
CMDCOM 


; "SPREV" FUNCTION ROUTINE 


SPREV: NOV 
BR 


; JSR R5.SPREV 
;.WORD CNT 

H13.R1 

SPCOfc 


; "REWIND" FUNCTION ROUTINE 

; JSR R5, REWIND 

REWIND: MOV 1117.R1 

MOV UlSlO,R2 

BR MISCOM 

; "OFFLIN" FUNCTION ROUTINE 
; JSR R5, OFFLIN 


OFFLIN: MOV 
MOV 
BR 


1101, Rl 
1410.R2 
MISCOM 


; “CRESET" FUNCTION ROUTINE 

; JSR R5.CRESET 

CRESET: JSR PCXKDBSY 

INC MISCNT 

JSR PC.SUPTAD 

BIS lluOOQ. (R4) 





MACY11 27(732) 24-SEP-76 14:00 PAGE 5-3 


;EXIT TO USEP PROG 


• COrtlON PROCESSING ROUTIfC 


OF HTi 


84 = aSToFs^? COUNT totals, if applicable 


; CHNO FLAGMORD FORMAT: 


BIT 15 
BIT 14 
IT 12 
BIT 11 
BIT 10 

If? 1 

BIT 6 


RO.CNTADR 

R2.CURFLG 

R2.T0EMAX 

•7.R2 

10i 

*4,RH 

•4.R2 

5S 

( RS ) ♦ . RO 
RO 
RO 
RO 


R0.R1 
(RS),(R4) 
(RS)^.RBAOR 
(RS)4-. -(RM) 

( R4 ) , CURCNT 
(R4),FlNCNT 
(R4) 

( R4 ) . R8CNT 

-(RmJ 

•LR2 

ioi 

( RS ) ♦ 

PCUR0V(R3 j .RO 


* ROLLBACK IN PROG (INT SRv. ) 

= RC’VO 1ST m INT (INT SRV.) 
s T/0 CNT BIT 4 
s T/0 CNT BIT 3 
= T/0 CNT BIT 2 

: n 88 IH 4 

= REMIND CftC 

: s 

= DO NOT INCREfCfT BYTE COUNTS 
= 4 A»lllfrf OtC 


SAVE AOR OF BYTE COUN 
SAVE FLAGUC FOR T0HI 
SAVE lOFTIfCOUTS FC 
RESET TfC ERROR IfCIC 
THIS CftC HAVE ARGUNE 
Y.N-10S 

PjlNT AT BUS AOR REG 
RECORD COUNT ONLY’ 
N.Y-5S 

G^T BITS 16 & 17 OF B 
A' IGN THEN TO CORRECT 
B*T POSITIONS 


SET THEN INTO CftC CO 
GET BUS AOR BITS 0 - 
SAVE AORFOR ROLLBACK 
GET BYTE /RECORD COUNT 
SAVE THE COUNT 
INITIALIZE FIN*. CNT 
HAKE IT fCGATlVE 
SAVE CNT FOR ROLLBACK 
REALIGN REG WR TO HTi 
4 ARGUMENT CftC’ 
Y.N-10S 

BYPASS FOURTH ARGUMEN' 
GET CURR DEV • 



■^ifcec-ii-OTTnA-fl Tmi/Tuio C'vice routine for hpg 
D T T nfie.Rii tmi fiuction routifcs 
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RO, «7 

DE^OK 

RS.ERRCj 

INWVN-I 

10. 

DATAER 

•l.ERR 


RHBAS 


5CUPGER 

R0.KR4) 

s 

RO.(RM) 

(RA).RSCnD 

•ll.uFLGHO 

PT0dNT(R3) 

toecnt 

NUHR8 

EOF 

EOT 

•B.DFLGWD 

wt4I0T.(R3) 

ri,rbch6 

Rl.(RH) 

dfCgud 

wtnot 

R5.3CI0BSY 

Or DO ATTN 

. W , • • • • 

R5 


INV DEV • ERROR 


AQO 1 TO DATA ERR CNT 

SET T>€ ERROR IfCICATOA 

REMOVE T* 1 ADDED TO DEV ERR CN T 

GO TO HPG ERR RETN P0I?T 

PUT OEV I IN riTC BITS 8 thru 12 

GET DEV ROUT FLGWC 

reset allIits except bpi & °APr< 

SET UP BPI i PARITY 

SAVE DEV •. BPI S PARITY IfCO 

RESET the fRROR FLAGS 

INITIALIZE TlfCOUT COUNTER 

RESET • Of TlfCOUTS 

RESET « OF ROLLBACKS 

RESET EOF IfCICATOR 

REsET EOT IfCICATOR 


ISSUE. Th€ CftC 
-NOWAIT- BIT SET’ 
N.Y-UTNOT 

wAlT FOR I/O TO COMPLETE 

rrt DCMV^rcc rco*iT»*fl T Trw«4 

tfv I I >Wb W1 * * V* • 

EXIT IN-LINE TO USER PROG 


*W T 4I0T, iR3 < 
CNDEX 


; RESET WAITING FOR I'Z ”ERN 
;GC T C Exr 


■«:NO£c-i;-:r r nft-B thimuio device routine for npg 
c'tnab.pi: run interrupt service routine 



TNINT: 


016764 

016764 

016700 

CN270Q 

020027 


100000 

176316 000004 

176312 000002 
176300 
177761 
000004 


7S5 

0025SB’ 

ms- 

001003 




75^ 

052767 

016714 

000014 

176254 

1 76260 

13S: 

7S8 

002572’ 

000471 




?SQ 





20S: 

7B0 

002574’ 

005714 



7b 1 

0025 7B’ 

100414 




762 002BQO’ 

763 002S04’ 

032702 

001455 

000100 


25S: 

764 

002606’ 

032702 

040000 




0Q2B12’ 

001052 




'66 

002fcl4’ 

002B20* 

052702 

040000 



'67 

032744 

000040 



7 6fi 

002B24’ 

001044 




7B9 
770 
T 7 1 
"72 
773 

002b2b’ 

000453 




002630’ 

002B34’ 

002B3B’ 

002B44* 

032744 

040000 


30$: 

7 74 

001407 




775 

012767 

000001 

175144 


77 b 

005267 

176146 



777 

002B50’ 

002B54’ 

002BB0’ 

052702 

000010 



778 

032714 

00200C 


40S: 

779 

001405 




700 

701 

mm 

m 

000001 

176124 

175122 


782 

002B74’ 

032714 

000100 


45$: 

703 

704 


001413 

032714 

105600 



'05 

7 9B 

w 

ooigio 

032714 

030000 



'97 

002714’ 

001026 




'98 

'99 

Oof^’ 






•SBTTL 


JSR 

INC 

JSR 

JSR 

.UORO 

NOV 

TS T 

BPL 

BIC 

NOV 

NOV 

NOV 

BIC 

CNP 

BNE 

BIS 

NOV 

BR 

T S T 

BNI 

8I T 

BEO 

BIT 

BNE 

BIS 

BIT 

BNE 

BR 


BIT 

BEQ 

NOV 

INC 

BIS 

BIT 

BEO 

NOV 

INC 

BIT 

BEQ 

BIT 

IS 

BNE 

TST 

BR 


002 
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TNI 1 INTERRUPT SERVICE ROUTINE 


RO.SAVREG 

iNtCNT 

PC.SUPTAO 

RS.STSTAT 

ISTAT-. 

CURFLG.R2 

R 2 

•iSoooo, R2 
rbaor.hIrm) 

RBCNT , 2 ( R4 ) 
R8CND.R0 
•177761 , RO 
R0.«4 

loi 

•14.RBCHD 
R8CHD, C RH ) 
BOS 


(RH) 

30S 

•100, R2 

80S 

•40000, R2 
80S 

•40000.R2 
•40, -(R4) 
70S 
90S 


; ERROR BIT SET 


•40000, -(R4) 

40S 

•1 .EOF 

EO^CNT 

•10.R2 

•2000 , ( R4 ) 

4SS 

•l.EOT 

EOtCNT 

•100, ( R4 ) 

BOS 

•105B00, (P4) 

#S5qoo . ( R4 ) 

100S 


iR4) + 
2SS 


Wl% W CHT 
SET UP PROG TBL & HTC AOR’S 
STORE ALL DEV REG’S 

GET THIS CffC'S FLGWO 
ROLLBACK IN PROGRESS’ 

R$SE?°SoLLBACK IN PROG FuG 
SET UP ORG DATA ADR 
SET UP ORG BYTE COUNT 
GET ORG CNNO 

LEAVE OH.Y T* FUNCT BITS 
ORG CMD A WRITE DATA’ 
Y.N-10S 

StT UP -WREIRG- CNNO CODE 
RE-ISSUE CNNO 
GO TO INT EXIT 

ERROR BIT SET’ 

N.Y-30S 

tAis A REUINO C»C’ 

Y.N-80S 

ALREAOY RC’VO 1ST INT’ 
N.Y-80S 

SET RC’VD 1ST INT FLG 
AT BOT’ 

N.Y-7QS 

g£) TO INT EXIT 


EOF SET’ 

Y.N-40S 

SfT THE EOF FLAG 
AOQ 1 TO EOF CNT 
DON’T ADO IN ITS BYTE CNT 
EOT SET’ 

Y.N-45S 

S^T THE EOT FLAG 
ADO 1 TO EOT CNT 
SELECT RENOTE SET' 

Y.N-SOS 

A^Y HARO ERRORS’ 

Cftc'^LRC ERRORS' 
N.Y-lOu' 

POINT AT N T C 
GO CK CNND ” V PE 


nai’CEC-ii-c^na-b th:i tuid device ROUTirc for npg 
: tt iab.pi; tnh interrupt service routi* 


E02 


'SI 

i mi 

7S5 00273b’ 005724 
^85 002740’ 042714 
7S7 002744’ 015457 

;# fe m 

800 002752’ OOHOb7 
002755’ 000177 


032702 
001 7SM 
032753 


mw-m 


803 

80S 

SOS 

80b 002 772’ 
807 00277b’ 
906 003000’ 



14’ 

b’ 


811 

ii! 

814 00302b’ 

815 


8l^b 

005257 


81b 
017 003042 
818 003044’ 
01S 003050’ 

820 003054’ 

821 

822 0030b2’ 
023 003070’ 
£24 003074’ 


>75? 
001727 
005257 
005257 
7702 
>724 
012754 
112714 
000730 


000100 



88884? 151855 H 

70S 
BOS 

175072 

SOS: 

001070 

175102 


000050 100S: 

000400 000002 
000040 

175032 174752 

175752 

175014 174742 110S: 


175742 

175000 

100000 

177777 000002 
000113 


120S: 


§ii 

TST 

BIC 

nov 

eic 

NOV 

JSR 

JNP 


BIT 

BE8 

BIT 


BEQ 

CNP 

BEQ 

INC 

BR 

CNP 

SES 

INC 

INC 

BIS 

TST 

NOV 

NCVB 

BP 
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; ERROR & NORMAL TERMINATION 


& ft 


(R4H 

•100, (R4) 

2(R4).FINCNT 

■WT4 IQT. (R3) 

R2,CURF£G 

RO.RESREG 

3RtNlNT 


.•ROLLBACK type OF ERROR 

•50.R2 

50S 

•doerck.popsw;R3 


•40.R2 
1 lOi 

NUMRB, URRB 
50S 

URBCNT 

120S 

NUMRB, RDR5 
SOS 

RRBCNT 

mtm 

I100000.R2 

(R4) + 

•-1.2JR4) 

•i!3.>R4) 

SOS 


flg 


POINT R4 AT NTC 
RESET INT ENABLE 
STORE FINAL COUNT 
RESET UAJTINGTOR I/O TERN 
STORE CMC FLGM) 

RESTORE A LL REGISTERS 
EXIT F*ON INTERRUPT 


ROLLBACK TYPE OF CNNO’ 

Y.N-50S 

W ERROR CK /RECOVERY’ 

Y.N-50S 

TftlS A WRITE ROLLBACK’ 

E&*u4??D UR ROLLBACKS’ 
N.Y-50S 

I NCR TOTAL » OF UR ROLLBACKS 
GO TO COMMON ROLLBACK PROC 
EXHAUSTED REAO ROLLBACKS’ 
N.Y-SQS 

I NCR TOTAL • OF READ ROLLBACK 
AOO 1 TO ROLLBACK CN' 

SET ROLLBACK IN PROGRESS F.G 
POINT AT NTC 
SE’ UP RECORD CN T OF 1 
ISSJE SPACE REV CNN: 

g; t c in' exit 


m 


nainoe:-..-: 
:~nab.p:: 

S26 
92' 

929 
929 
8X 
93: 

932 
833 
93m 
835 
936 
33' 

938 

939 003106' 

esQ 003110’ 
391 0031 1M’ 

g§ » 

944 003126’ 
9H5 003132' 
0% oo'xo 
84? 003142’ 

948 003150' 
948 00315*+’ 
3S0 003156’ 
851 003160’ 

8Sc 003162' 
953 003166’ 
85** 003174' 

BSE 
856 
85' 

858 

859 
960 
861 
862 
963 
86 *+ 

965 

966 003176' 

967 oo; 

868 

871 003222' 


’**+-5 T N11 ’-10 DEVICE ROUTIfC FOR NPG 
509fi:L'I*CS FDR T"U FUNCTION ROUTINES 


F02 
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+767 
17 1H 
001*+ 03 
00H577 
000772 

TOM 767 
300763 
016767 
016767 
009577 
000000 
ooocoo 

1773,0 

010561 

162767 

000207 



074 
875 

076 

077 0032S0’ 


98C 003269' 
98: 003266' 


009567 

175556 

012767 

m 

012S67 
\7 

s7 

032763 
001060 
0109% 
005009 
*7 
'67 
001909 
009567 


-S0TTL SUBROUTINES FOR Tflll FUNCTION ROUTINES 


; CHECK IF DEVICE IS BUSY RND WAIT IF IT 15 


772 

100 


178732 

000002 179656 


CKDBSY: 


000256 


179666 000012 
179662 000006 
179712 


17^696 

000009 175690 


CKDE 

101 : 


201 : 


3 OS: 


90S: 

95S: 

3TSADR: 


JSR 

BIT 

SEC 

JSR 

BR 

Ul 

J5R 

BR 

NOV 

NOV 

JSR 

.WORD 

.WORD 

.WORD 

NOV 

tti I 


JSR PC .CKDBSY 
DESTROYS A0,R3.R9 
ON EXIT: 

R3 = PROG TBL ADR 
R9 s HTC ROR 


PC.SUPTAD 
• lOO, (R9) 
20 $ 

RS.3CI0BSY 

10 * 

•2.DFLGWC 


& c 


PC.PROCTN 

ioi 

I VC T AO. 90S 

xxxx 

xxxx 

THINT-. 
RS.ERRADR 
•9, ERR ADR 
PC 


000716 

175936 0C0110 

175922 000100 
000059 

m 

020000 000002 


JlB 179516 
001072 


ERRCS: JSR 
.WORD 

ERRCS 1: NOV 

BR 

ERRIS: NOV 
ERRCOH: NOV 
NOV 
INC 
BIT 
BNE 
NOV 
CLR 
JSR 
BIT 
BEG) 
JSR 


RS.STSTAT 

CStAT-. 

•CSTAT-ERSTAO , ERST AD 
ERRCON 

lIST AT-ERSTAO , ERST AD 
(R5)+,ERNBA5 
(RS)+*.ERNBAS*2 
ERRCNt 

•PRONER , POPSW ( P3 ) 

ERREX 

P4,-(SP) 

R9 

PC. DISUNN 
•lO.DFLGUD 

5S 

R5, PRINT 


S/R CALL 


SET UP PROG TBL S 
INT EN* 


XV 


ON 1 


C ACR'5 


; ERROR INFORNATION OISPLAY S/R 


JSR RS, ERRCS 

jsr rs!erris 

.WORD NSiAOR-ERNBAS 
.WORD NSGCNT 
R3 = PROG TBL ADR 
DESTROYS R0.Rl,R2 


NABLE 
Y.N-20S 

RELEASE CONTROL 
GO CK AGAIN 

HAVE TO PROCESS PR£v TERNINA" 
Y.N-30S 

Go PROCESS TERMINATION 
GO RECHECK INT ENABLE 
STORE INT VECTOR AOR 
STORE PROG STATUS WORD 
GO SET UP T* VECTOR 
INT VECTOR AOR 
PSU 

REL INT ROUT AOR 
SAVE CURR USER STNN T ADR 

; EXIT IN-lINE 


S/R CALL FOR CURR STAT W S 
S/R CALL FOR INT STA T US 
REL ADR OF ERROR NSG 
t OF BYTES IN ERROR NSG 


; STORE CURR STATUS 


STORE AOR OF CURR STATUS 

GO TO COfflON POIN T 

STORE AOR OF LAST INT S’A\.S 

STORE NSG ADR 

STORE NSG CNT 

ADO 1 TO ERROR CN T 

ERROR PRINTING INHIBITED" 

N.Y-ERREX 

SftvE R9 

SET USER NODE PRINT F_AG 
DISPLAY UNIT • 

ROLLBACK EXHAUSTED" 

Y.N-5S 

ISSUE ROuuBk EXH NSG 


•WIN06C-* *■ 

3 T TNAB. Pi I 
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se; 0407 


882 003272’ 

S83 CC327M’ 

884 003276 

885 003X2’ 


888 003314’ 
988 QQ3316’ 

880 003322’ 

881 



885 003344’ 
88b 0033%’ 
887 003350 ; 

800 X33S| ; 

803 Q0337M’ 

804 003400’ 
90S 003402’ 
80b 003404’ 

807 00340b’ 

808 
808 
810 
811 
812 

813 

814 

815 

816 

817 

818 
818 
820 



HO’ 
U4’ 
003422’ 
0034 X’ 
- 432’ 

821 003444’ 

822 

823 

824 

825 
82b 0034b2’ 

827 003%4’ 

828 003472’ 
828 003474’ 
8X 003S02’ 

831 003510’ 

832 003512’ 

833 003514’ 

334 003520’ 

335 003522’ 
33b 00352b’ 
33' 0035 32’ 


002001 

m 

000000 

000000 

103005 
,7 



015300 

001402 

ObOlOO 

000771 

005720 

010701 

062701 

004577 

012767 

004567 

001614 

177762 

012604 

000205 


001062 


.WORD 

.WORD 

55: JSR 

177770 

002006 

ERNBAS: .WORD 
.WORD 
CNP 

000714 


BHIS 

JSR 

000776 


ERST AD: .WORO 
JSR 

000022 


ERRSNH: NOV 

000004 

175470 

10S: NOVB 

CNP 


20S: 


001646 

174474 

020040 

000764 


001634 


BEQ 
ROD 
BR 
TST 
NOV 
ROC 
JSR 
NOV 
JSR 
.WORD 
.WORD 
NOV 

ERREX: RTS 


RBEXHN-. 
il* PRINT 

xxxx 

xxxx 

ERNBRS, IINVOVN-ERNBRS 

ERRSNM 

RS.DISPST 

xm 

PC.PRTIUD 

PSpICST ( R3 ) , RO 

(RO).Rl 

4(R05,ERRRDR 

20S 

Rl.RO 

ioi 

(R0) + 

PC.R1 

BSTHNUH-..R1 
RS.aDECRSt 
«2ft040. STNNUN+4 
RSjPRII^T 
STHNHG-. 

-14. 

(SPH.R4 

R5 


; PRINT ERROR NSG SPECIFIED 


INVALID UNIT • OR 9PI ERRCR’ 
N Y-ERRSNN 

Dt SPLAY STATUS REG’S 

DISPLAY EOT & EOF VAl'JES 
GET AOR OF SRC STNNTS 
SAVE STNNT LENGTH 
ERROR OCCUR ON THIS STNNT’ 
N.Y-20S 

POINT AT NXT STNNT , 

GO CK NXT STNNT \ 

SET UP ADR OF STNNT a DATA 
SET UP DATA OUTPUT AOR 

CONVERT IT TO ASCII 

SET 2 LOU DIGITS TO SPACES 

ISSUE STNNT a NSG 


; RESTORE R4 
; EXIT IN-LINE 


; PROCESS TERNINATION OF PREVIOUS I/O FUNCTION 


004067 

000426 


PROCTN: 

JSR 

042767 

000002 

174360 


BIC 

032767 

000010 

175413 


BIT 

001015 




BNE 

016700 

175404 



NOV 

016701 

175402 



NOV 

100001 




BPL 

0OS401 




NEC 

160100 



2S: 

SUB 

010067 

174344 



NOV 

016701 

060011 

175356 



NOV 

ADD 

005541 




ADC 

032767 

000001 

174310 

6S: 

BIT 

001504 




BEQ 

012767 

000001 

174320 


NOV 

032763 

000400 

000002 


BIT 

001073 




BNE 

010701 




NOV 

062701 

001534 



ADD 

01CI02 




NOV 

012700 

000023 



NOV 

112722 

000C4C 


IQS: 

NOVB 

005300 




DEC 


; JSR PC.PROCTN 

RO.SAVREG 

bBIDFLGWD 

BlO.CURFLG 

6S 

CURCNT.RO 
FINCNT, R1 

2S 

R1 

Rl.RO 

R0.5IZE 

CNTA0R.R1 

R0.(Rl5 

-(ftl) 

•l.DFLGUD 

BOi 

•l.ERR 

•D6ERCK,POPSU(R3) 

70S 

PC.R1 

«c6dfld-.,ri 

R1.R2 

»l^. t RO 

i40,(R2)+ 

RO 


S/R CALL 
SAVE ALL REG’S 

RESET PROCESS TERNINATION F^Ai 
I NCR BYTE COUNT’ 

Y.N-6S 

g£t initial byte cnt 

GET FINAL BYTE CNT 
IS IT NEGATIVE’ (Y.N-2S- 
HAKE IT POSITIVE 

SUB RENAINING CNT FRON INITIAL CNT 

STORE B OF BYTES ACTUALLY XFERRED 

GET AOR OF B V TE CNT TOTALS 

ADD IN THIS CNT 

UPDATE HOST SIGNF WORD OF ON’ 

WAS THERE AN ERROR’ 

Y.N-80S 

s£t THE ERROR INDICATOR 
SUPPOSED TO DO ERROR CHECKING' 
Y.N-70S 

G£T ADR OF CODE AREA IN ERR NSG 

HOVE IT TO UORK REG 
SET UP AREA SIZE 
CLEAR AREA TO SPACES 


SEi 3 h26 
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J4’ 
. _ >5 6’ 

9 % ooasfao’ 

947 003S64’ 

948 003566’ 

949 003570’ 

950 003572’ 

951 00357%’ 

952 003800’ 

953 003602’ 

954 QQ3604’ 

955 00360&’ 

956 003610’ 

957 003612' 

958 003614’ 

959 003620’ 

960 003622’ 

961 003624’ 

962 003626’ 

963 003632’ 

964 003634’ 

965 


966 0036* 

967 003642’ 

968 0036%' 
%9 003650’ 

970 003652’ 

971 00365fe’ 

972 003660’ 

973 003662’ 

974 

975 

976 003676’ 

977 003700’ 

978 003704’ 

979 003710’ 

980 003714’ 

981 

982 

983 003716’ 
584 003722’ 

985 003723’ 

986 003727’ 

987 003733’ 

988 003734’ 
909 003740* 

990 003744’ 

991 003750’ 

592 003754’ 

952 003760’ 


001374 
010700 
062700 
010702 
062702 
0050% 
005202 
112004 
120427 
001773 
005704 
001427 
120427 
001004 
112004 
130412 
001406 
000402 
130412 
001003 
062700 
000756 
005716 
001402 
112721 
005216 
112021 
112021 
112021 
r '2716 
U01343 
005726 
004567 
001730 
000041 
004767 
004067 
004577 
000207 
005267 
004767 
004067 
000207 


047200 

376 
100 
004 

377 
044600 
041440 
050020 
041010 
051002 
041001 


000156 

17S17S 

000377 

000376 


046530 

046123 

051127 

041514 

042522 

042501 

046107 

042S14 

342524 


15S: 

20 $: 



30S: 

000003 

35S: 


40$: 

000054 

50$: 

000005 


177336 

60$: 

000100 

000164 

174152 

65$: 

175116 

000056 

000142 

70$: 

B0$: 


ERCDTB: 


122 

114 


BNE 

NOV 

ROD 

NOV 

ROD 

CLR 

INC 

NOVB 

CNPB 

BEO 

TST 

BEO 

CNPB 

BNE 

NOVB 

BITB 

BEO 

BR 

BITB 

BNE 

ROD 

BR 

TST 

BEQ 

NOVB 

INC 

NOVB 

NOVB 

NOVB 

CNP 

BNE 

TST 

JSR 

.WORD 

.UORO 

JSR 

JSR 

JSR 

RTS 

INC 

JSR 

JSR 

RTS 


.RSCII 

.BYTE 

.RSCII 

.ASCII 

.BYTE 

.RSCII 

.ASCII 

.ASCII 

.A5CII 

.ASCII 

.ASCII 


H02 
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10 $ 

PC.RO 

iEftCDTB-..RO 

PC.R2 

«I§TAT-1-.,R2 

-CSP) 

R2 

(R0)+,R4 

R4.«3*7 

isi 

R4 

60S 

R4.i376 

30$ 

(R0)+.R4 

R4.(R2) 

40$ 

35S 

R4 ( R2 ) 

40$ 

•3.R0 

20$ 

(SP) 

50S 

»’ (Rl)+ 

(SM 

( RO ) + , (Rl)+ 
tROJt, <R1>+ 
(RO)^.(Rl)t 
•S.(SP) 

20 $ 

(SP) + 

R5.ERRIS 

TN^NSG-ERNBAS 

33. 

PC, R INTV 
RO.RESREG 
R5 3CUPGER 
PC 

ERRCNT 

PC.RINTV 

RO.RESREG 

PC 


<200>/NXN/ 

376 

<100>/SLR/ 
( 004 > /URL/ 

377 

<200>/lLC/ 
<040>/CR£/ 
<020>/PRE / 
<010>/BGL/ 
<0Q2> / RLE / 
<001 > 'BTE y 
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; SET JP AOR OF ERROR COOE TBL 

; SET UP AOR OF STORED DEV REG'S - 1 

; INITIALIZE COOE CNT 
; POINT AT NXT STATUS BYTE 
; GET ERROR BIT NASK COOE 
; GO TO NXT STAT BYTE COOE’ 

;N, Y-15S 

;E!*© OF THE CODE TBL’ 

;N.Y-60$ 

;BlT VALUE OF 0 = ERR COND’ 

; Y.N-30S 
; G^T BIT VALUE 

; THIS BIT RESET IN STAT BYTE’ 

; N. Y-4QS 

; GO TO NXT TBL ENTRY 

; THIS ERROR BIT SET IN STATUS BYTE’ 

;N.Y-40$ 

P6INT AT NXT CODE TBL ENTRY 
;G0 CK FOR NXT COOE 
; FIRST ERROR CODE IN NSG’ 

;N.Y-50$ 

n6ve COHNA TO NSG 
; INC • OF CODES IN THE NSG 
;NOVE ERROR CODE TO NSG 


PUT S CODES IN THE NSG’ 

Y.N-20S 

RESTORE STACK 

GO ISSUE STATUS ERROR NSG 


GO RESET I NT VECTOR 

RESTORE REG’S 

GO TO NPG ERR RETN POINT 

EXIT IN-LINE 

ADO 1 TO ERROR CNT 

GO RESET INT VECTOR 

RESTORE REG’S 

EXIT IN-LINE 


; ERROR NSG CODE TABLE 


•a:nde:-:.-:ttha-b t mii tlic device routine for hpg 
: tt mab.p;i subroutines for tmii fiction routines 
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B94 

945 

9% 

997 

998 

999 
iOOC 
1001 
1002 

1003 

1004 


003764" OOC 
003766 ' 


10 £ 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 
101b 

1017 

1018 
ion 
1020 
1021 
’022 

1023 

1024 

1025 
*026 


003766’ 004567 000020 
003772" Q00406 
003774" 016767 174026 
004002" 004577 174062 
004006" 000000 
004010’ 000207 


000004 


IQS: 


004012" 

004020’ 

004024" 

004030’ 

004032" 

004034’ 

004036" 

004040" 


016767 

016346 

004577 

000000 

176436 

000401 

005725 

000205 


174010 
000004 
1 74042 


000010 T VECT : 


20S: 


.BYTE 

.EVEN 


; TABLE TERMINATOR 


; RESET INTERRUPT VECTOR S/R 


JSR PC.RINTV S'R CAll 

R3 MUST CONTAIN PROG TBL ADR 
DESTROYS RO 


RINTV: JSR 
BR 


MOV 

JSR 

.UORD 


RINTEX: RTS 


R5. TVECT 

RINTEX 

IVCTA0.10S 

R5, 3ClAvEC 

xxxx 

PC 


GO CK IF I HAVE VECTOR CONTP: 
BR IF 5 DON’ T 
GET CURR INT VEC T ADR 
;G0 HAVE MPG CLEAR I T 

; EXIT IN-LINE 


: TEST INTERRUPT VECTOR S'R 


JSR R5JVECT S/R CALL 

BR LABEL EXECUTED IF N0 T SAME 

R3 MUST CONTAIN PROG T 8L ADR 
DESTROYS RO 


T VECTX: 


MOV 

MOV 

JSR 

.UORD 

.UORD 

BR 

TST 

RTS 


IVCTAD.20S 

PFUADR(R3).-(SP) 

R5.3TSTVEC 

XXXX 

TMINT-. 

TVECTX 
(R5) + 

R5 


GET CURR INT VECT ADR 
STORE FLGUD ADR TO IDENTIFY HE 
DO I HAVE VECTOR CONTROL 7 
MPG UILL TELL ME SINCE I CAN’T 
GET AT LOUER MEM IF MEM MGMNT 
BR IF I DONT’T HAVE CNTRL 
BYPASS BR INST IN S/R CALL 
EXIT IN-lINE 
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J028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 
.036 

1037 

1038 

1039 

1040 

1041 

1042 
.043 

1044 

1045 
1045 

1047 

1048 

1049 

1050 

1051 

1052 

1 053 

1054 

1055 

1056 

1057 

1058 

1059 
1050 
1061 

1052 

1053 

1054 

1055 
1055 

1057 

1058 

1059 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 


004Q74' 

004076’ 

004102’ 

004105’ 

004112’ 

004116’ 


004120’ 
004122* 
0C4124’ 
004130’ 
0041 
0041 
0041 
004140’ 
004142’ 
004144 ’ 


.SBTTL SUBROUTINES FOR TM1 1 DEVICE ROUTINE 


; SAVE REGISTERS RO THRU R5 
; JSR RO.SAVREG 


S/9 CALL 


004042’ 
004044’ 
004046’ 
004050’ 
004052’ 
004054 ’ 


004056’ 

004050’ 

004052’ 

004054’ 

004056’ 

004070’ 

004072’ 


010146 

SAVREG: MOV 

R1,-(SP) 

{SAVE RO THRU RS 

010246 

MOV 

R2 , - ( SP ) 


010346 

MOV 

R3,-(SP) 


010446 

MOV 

R4 , - ( SP ) 


010546 

MOV 

R5,-(SP) 


010007 

MOV 

RO.PC 

{EXIT IN-LINE 


{RESTORE REGISTERS RO THRU RS 




; JSR RO, RESREG 

S/R CALL 

005726 

RESREG: 1ST 

(SP) + 

{RESTORE R5 THRU 

012605 

MOW 

» IV * 

( SP ) ■*■ , R5 


012504 

MOV 

{ SP ) ♦ , R4 


012603 

MOV 

(SP)+,R3 


012502 

MOV 

(SP)+,R2 


012601 

MOV 

(SP)+,R1 


000200 

RTS 

RO 

{EXIT IN-LINE 


{SET 

PROGRAM’S PROG TABLE ADR 

IN R3 S MTC ADR IN 


010703 

052703 

166303 

016704 

052704 

000207 



010501 

052501 

016700 

012021 

11811 

012021 

012021 

011011 

000205 


173702 

177776 

173712 

000002 


SUPTAD: MOV 
ROD 
SUB 
MOV 
ROD 
RTS 


; JSR PC,SUPTAD 

PC.R3 

»l6cz-..r3 

-2(R3),&3 

DREGAO R4 

•2,R4 

PC 


S/R CALL 

; SET UP LOCATION ZERO ADR 

{SUBTRACT PROG T8L LENGTH 
;GET DEV REG BASE ADR 
{POINT AT MTC 
{EXIT IN-LINE 


{STORE OEVICE’S STATUS REGISTERS 


173674 


STSTAT: MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 


JSR R5.STSTAT 
.WORD STADR-. 
DESTROYS R0.R1 


RS.R1 
(Rb)+.R1 
DREGA6.R0 
(R0)+, iRl )+ 
(R0)+, (R1 )+ 
(R0)+,(R1)+ 
(R0)+, (Ri)+ 
(R0)+,(R1)+ 
(RO) , (Rl ) 

R5 


c/o roi i 

REL STORAGE ADR 


GET REL STORAGE ADR & 
IT ABSOLUTE 
GET ADR OF DEV REG’S 
STORE ALL DEV REG’S 


:EXI T IN-LINE 


MAKE 


SEQ 0410 



SEi CMl 
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1084 

1085 

1086 

1087 

1088 
1088 
1080 

1083 
1( 


10 % 

1087 

1088 
1088 
1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 
1108 
1110 
mi 
1112 

1113 

1114 

1115 

1116 

1117 

1118 
1118 

111? 

1122 

1123 

1126 

1127 

1128 
1128 

1130 

1131 

1134 

IIS 

1137 


00414b’ 

004154’ 

004166’ 

004172’ 

004174’ 

» 

004212’ 

004216’ 

004222’ 

004224’ 

004230’ 

004232’ 

004234’ 


004236’ 

004240’ 

004242’ 

004244’ 


>4’ 
004260’ 
004264’ 


004272’ 

004274’ 

004300’ 

004X2’ 

004306’ 

004310’ 

00431?’ 

004314’ 

004316’ 

m' 

004324* 


;DI5PLRY CURRENT UNIT • 

; JSR PC .01 SUNN 
;R3 must contain prog 
; DESTROYS R0,R1,R2 


012767 

116300 

m 

004577 

000402 

016767 

« 

042700 

004577 

0003S2 

004567 

000320 

000026 

000207 


000026 

000035 

000007 

173666 

000400 

000032 

177400 

173634 

000134 


000056 01 SUNN: 


000372 

000020 DI5UIV: 


DISUPR: 

DISUML: 


NOV 

NOVB 

CUP 

SHI 

JSR 

.WORD 

NOV 

BR 

NOV 

BIC 

JSR 

.WORD 

JSR 

.WORD 

.WORD 

RTS 


•22..DISUML 

PCUR£>V(R3),R0 

RQ.«7 

DI$UIV 

RS.3BTASLZ 

UNASCI-. 

UNA5CI+4, UNA5CI 




••-“ijOISUNL 

•1 77^00. RO 
R5.3BINASC 
UNflSCI-. 

RS. PRINT 
UNITMG-. 

22. 

PC 


010502 


DISPST: MOV 

062502 


ADD 

010701 


MOV 

062701 

0127% 

012167 

173652 

ADl 

000006 

MOV 

000322 

10S: MOV 

012167 

000320 

MOV 

D0S721 


' TST 

012200 

010146 


MOV 

MOV 

0102% 


MOV 

D04577 

173556 

JSR 

000310 

004567 

000056 

.WORD 

JSR 

000274 


.WORD 

D00014 


.WORD 

012602 


MOV 

012601 


MOV 

005316 


DEC 

m 


¥8? 

000205 


RTS 


; TAILOR STATUS MSG S PRINT IT 

; JSR RS.DISPST 
;UORD STATADR-. 

; DESTROYS R0,R1,R2 


R5.R2 

(R£)+,R2 

PC.R1 

•DVREGS-. .R1 
l0VREGE-D^REGS/6 , - ( SP ) 
(RlH.DVRGMG 
(R1)+,0VRGMG*2 
C R 1 ) + 

(R21+.R0 

R1,-(SP) 

R2.-CSP) 

R5.3BINASC 

dvAgdt-. 

R5.PRINT 

DVftGNG-. 

12. 

(SP)+,R2 

CSP)+,R1 

(SP) 

10S 

(SP)* 

R5 


S/R CALL 

TBL ADR 


INITIALIZE TO NORMAL MSG LNGTH 
GET CURR UNIT l 
VALID UNIT «’ 

Y.N-DISUIV 

CONVERT » TO DECIMAL ASCII 

MOVE ASCII • TO 1ST TWO DIGITS 

§?t I u? j Irr s ?ond MSG LNGTH 
RESET HIGH BYTE 
CONVERT BINARY • TO A5CII 

GO ISSUE UNIT « MSG 
; EXIT IN-LINE 


5/R CALL 

REL ADR OF STATUS DATA 


GET REL DATA ADR 
MAKE I T A8S 

SET UP ADR OF REG NAMES IN ASCII 

GET » OF REGISTERS TO DISPLAY 
MOVE REG NAME TO MSG 

BYPASS DISP VALUE 
GET REG’S STORED VALUE 
SAVE R1 & R2 

CONVERT IT TO ASCII 

PRINT THE STATUS MSG 

.•RESTORE R1 S R2 

;DECR REG CNT 
; DONE ALL 7 (Y.N-IOSj 
: REMOVE COUNT FROM STACK 
; EXIT IN-LINE 


SEj 04. 
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00432b’ 
004332’ 
004336’ 
004340’ 
004344’ 
004350’ 
g043S2 ’ 
0043Sb’ 
004 3b0’ 
0043b2’ 


65 004364’ 

68 004372’ 

% » 

71 004400’ 

72 QQ44Q4’ 

74 004410’ 

88 » 

004416 

8844 

0044 
004434’ 
Q0444Q’ 
004442’ 
004444’ 


010500 


12501 

005704 

m 

062702 


77 

a 

80 

81 


110022 

010112 

016367 




I44 1 
0044! 

88441 

91 004472’ 

92 004474’ 

93 004476’ 


000005 

004577 


004577 

00022° 

000002 


; DISPLAY CONTENTS OF EOF & EOT UORDS 


; JSR PCjlPRTIUD 
; DESTROYS ftO,RlVR2 


016700 

004577 

000633 


im 

000635 

004567 

000606 

000027 

000207 


173456 

173520 

173446 

173S06 

000006 


PRTIWD: MOV 
JSR 
.WORD 
MOV 
JSR 
.WORD 
JSR 
.WORD 
.WORD 
RTS 


PRINT: 


000040 


000006 000056 
173424 


173414 

173404 


10S: 


20S : 



000000 


40S: 

SOS: 

K$EX: 


EOF.RO 

R5.JBINRSC 

if£of-. 

EOT -RO 

R5.&8INASC 

IFfeOT-. 

R5. PRINT 
INFOMG-. 
23. 

PC 


; ISSUE MSG TO LIST DEVICE 


JSR 

.WORD 

.WORD 


R5. PRINT 
MSGADR-. 
BYTCNT 


MOV 

ADD 

MOV 

TST 

BPL 

MOV 

ADO 

sue 

MOV 

MOV 

BPL 

NEG 

MOV 

JSR 

.WORD 

.WORD 

JSR 

.WORD 

.WORD 

JSR 

.WORD 

.WORD 

BR 

MOV 

MOV 

JSR 

.WORD 

.WORD 

RTS 


R3 = PROG TBL ADR 
R4 = FLAGWORD — 
DESTROYS R0,R1,R2 

R5.R0 

( Rb ) + , RO 

(R5H.R1 

R4 

4QS 

PC.R2 

•2M-..R2 

R2,R0 

RO (R2)+ 

R1.CR2) 

(Si) 

PA5CIN(R3) ,PROGNM 

R5.3CLIST 

PN/1MSG-. 

5 

R5.3CLIST 

XXXX 

XXXX 

R5.3CLIST 

CRLF-. 

2 

PRTEX 

R0,50S 

R1 60S 

R5 3ULIST 

XXXX 

XXXX 

R5 


S/R CALL 


; GET EOF VALUE 
; CONVERT ITS VALUE TO ASCII 

; GET EOT VALUE 
•CONVERT IT TO ASCII 

; PRINT MSG WITH THEIR VALUES 


;EXIT IN-LINE 


S/R CALL 
REL ADR OF MSG 
MSG BYTE CNT (IF NEGATIVE. 
RESET PRT DEV DEDICATED. ) 

IF NEGATIVE, USE CMNO MODE PRINT 


GET MSG ADR S MAKE IT ABS 

GET BYTE COUNT 

USE CMND MOOE PRINT’ 

Y.N-4M 

S£T UP LINK INFO ADR 

MAKE MSG ADR REL 
STORE MSG ADR 
STORE MSG’S BYTE COUNT 
CNT NEG’ (Y.N-10J) 

HAKE IT POSITIVE 
STORE PROG'S « IN MSG 
ISSUE PROG » 


; ISSUE MSG SPECIFIED 

; ISSUE A <CR> S <LF> 

GO TO EXIT 

STORE MSG’S ABS ADR 

STORE ITS BYTE CNT 

GO TO MPG TO ISSUE THE MSG 


: EXIT IN-LINE 


SES 0^ - 


NAIN0EC-11-DTTNA-B Tflil/TUlO DEVICE ROUTINE FOR NPG 
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11 % 

11 % 

1IS7 

11 % 

11 % 

1200 

120 | 

1204 

1205 
1205 

SIS 

1209 

1210 
1211 
1212 

1213 

1214 

1215 
1215 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 
1 
1 
1 

12 
12 
1231 
12 

L. 

1234 

1235 
1235 
1237 
1 
1 

1240 

1241 

1242 

1243 

1244 


004! 

si 

004521’ 

004533’ 


021520 
OSH 1 go 

103 

105 


. 58TTL 


.NLIST 

.EVEN 


004502’ 

00 % 10 ’ 

004515’ 



005112’ 

005140’ 



047505 

130 

130 

005214’ 

052123 

054130 

052123 

000023 


054130 
054130 
054502 

m 

005015 041411 
130 054130 
054130 054130 
130 054130 

W 1S $!$ 

054130 054130 
054130 054130 
IX 054 IX 
054 IX 054 IX 
0541X 0541X 

145’ 844524 042515 
154’ 047505 035505 
0541 X 
0541X 




PNMMSG: 

.ASCII 

Oil 


PROGNH: 

- ASC I I 

020124 

040514 

ATIMSG: 

.ASCII 

05112S 

042522 

CURMSG: 

.ASCII 

042115 

047440 

RENOMG: 

.ASCII 

8f§?§ 

045524 

054130 

UNI TNG: 
UNASCI: 

.EVEN 

.ASCII 

.ASCII 




.EVEN 

054130 

020075 

DVRGHG: 

.ASCII 

054130 

054130 

DVRGDT: 

.ASCII 

042524 

035123 

CNTSHG: 

.ASCII 


m kb ; m 


047115 

0541X 

052101 


047115 

0541X 

0541X 

0541X 

m 

0541X 
0541X 
0541 X 
0541X 
0541X 

052517 

040 

0541X 

0541X 

020124 


73’ 122 045117 

10’ 047111 020125 
“ 047111 020125 

005340’ 


005340’ 


041114 

047125 

050102 


CRLF: 
CHDCRO: 
CHDCWR: 
CMDCHS: 
CNTW8: 
CNTli®: 
CffTEOF: 
CNTEOT: 
CNTERR: 
CNTOER: 
CNTINT: 
CNTSEN= 
IOTO: 
INFOMG: 
IFEOF; 
IFEOT: 


STHNMG 

STHNUM 

TNEMSG 

CODFLD 

RBEXHM 

INVOVN 

INVBPI 


DVREND= 


.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

[ASCII 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.ASCII 

.ASCII 

.ASCII 

.BLKB 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.LIST 


M02 

flACYll 27(732 ) 24-SEP-75 14: 00 PPGF 9 

TN11 MESSAGE STORAGE AREA 

BEX 


/P»/ 

/XX/<011> 

’AT LAST INT:’ 
/CURRENTLY:/ 
/ENO OF REPORT/ 


/###ITM11 TAPE UNIT: / 
/XXXXXX/ 


/XXXX= / 

/XXXXXX/ 

/BYTES: RD= / 

/XXXXXXXXXXXX UR= / 
/XXXXXXXXXXXXZ 

<015> <012><011>/CMNDS: RD= / 
/XXXXXX UR= / 

/xxxxxx hisc- / 

/XXXXXX/< 015> < 0 1 2 >< 0 1 1 > /ROLLBACKS : 
/XXXXXX HR= / 


RD= 


/XXXXXX/ <0 
/XXXXXX EO 

/xxxxxx/<o 

/XXXXXX DA 

/xxxxxx/<o 

/xxxxxx/ 


5><012><011>/i OF EOF’S= / 
’S= / 

5> < 012>< 01 1> /ERRORS: DEV= / 
A= / 

5> <012 > < 01 1> /INTERRUPTS: / 


/ 


’TIMEOUT ON I/O’ 
/EOF= / 

/XXXXXX EOT= / 
/XXXXXX/ 

/STMNT « / 
/XXXXXX/ 

/STATUS ERROR: / 
19. 

/ROLLBACK EXH./ 
/INV UNIT •/ *- 
/INV BPI VALUE/ 


BEX 



N02 
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.S8TTL FORMATS FOR PROGRAM & DEVICE ROUTIfC TABLES 


PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 
PROGRAM FLAG WORD - 1 WORD 


SEQ 0414 


I24fe 


.S8TTL 

1247 

1248 

1248 

12S0 


; PROGRAM 

000242 

PTLGTH= lb2. 

1251 



1252 

1253 

1254 


; (PTLGTH= 212. 

000000 

PFLGWD= +0. 

1255 


URSTOP= 

125 b 

000002 

1257 

; zb 

000004 

000010 

ERSTOP= 

WT4I0T= 

1258 

000020 

CTPRIO= 

12S0 

000040 

SETD£D= 

12bl 

OOCIQC 

OCPRES= 


000200 

US£UBM= 

{lb 

100000 

ACTIVE= 

12b4 



12bS 

000002 

POPSW= +2. 

12Bb 


4 

12b7 

100080 

STONER= 

12B0 

040000 

CYCPRG= 

12b8 

020000 

PRONER= 

1270 

010000 

BIT12= 

1271 

. 004000 

BIT11= 

1272 

002000 

CYCDVL= 

1273 

1274 

• ISfSfeBBI 

GTNXTD= 

DOERCK= 

1275 

000200 

SPOPER= 

127b 

000100 

BITb= 


000040 

DOIOTr 


000020 

AUTORP= 


000010 

AURPEP= 

1280 

s. 000004 

SHS? 

HSKPEP= 

mm 

PFBBOV= 

NOCOMP= 

12B3 



1284 

000004 

PFWADR= +4. 

1285 


PASC^N= +b. 

128b 

1287 

1288 

00000b 

000010 

PNAME= +8. 

1288 



1280 

00001b 

PRDIOA= +14. 

1281 



1282 

1283 

1284 

1285 

128b 

1287 

1288 

1288 

1300 

000020 

PWRIOA= +lb. 

000022 

PSRCST= +18. 

000024 

P08JST= 420. 

00002b 

PLNGTH= 422. 

000030 

PTOCNT= 424. 

1301 




2 

4 

10 

20 

40 

100 

200 

100000 


1 = USER HAS STOPPED THIS PROGRAM 
1 = AN ERROR HAS STOPPED THIS PROGRAM 
1 = WAITING FOR I/O TERMINATION 
1 = CONSOLE OR PRINTER I/O IN PROGRESS 
1 = THIS PROG SET THE PRT DEV DEDICATED FLAG 
l = OBJ COOE IS PRESENT 

.1 = THIS PROG USES THE. UNIBUS MAP (MEM MGMNT ONLn 
1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION.) 


; PROGRAM'S OPERATION SWITCHES - 1 WORD 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 


1 = STOP PROG EXECUTION UPON ERROR 
1 = CYCLE PROGRAM (ON CURRENT DEVICE) 

1 = DO NOT PRINT ON ERROR 
0 = NOT USED 

0 = NOT USED 

1 = CYCLE THE DEVICE LIST 

1 = CYCLE ON SAME DEVICE UPON ERROR 
1 = DON’T DO ERROR CHECKING 
1 = DEVICE SPECIAL OPERATION 

0 = NOT USED 

1 = DO NOT PERFORM I/O TIMEOUT 

1 = DO NOT AUTOMATICALLY DISPLAY COUNTS 
1 = AUTO DISPLAY COUNTS AT ENO OF FINAL PASS ONLY 
1 = HOUSEKEEP COUNTS ONLY AT RUN COMMAND 
1 = PRINT FIRST BAO BYTE ONLY ON VERIFY 
1 = DO NOT PRINT PROG COMPLETED MSG 


PROGRAM FLAGWORD PODRESS - 1 WORD 
PROGRAM'S NUMBER IN ASCII - 1 WORD 
PROGRAM’S NAME IN ASCII - & BYTES 
ADORESS OF READ I/O AREA - 1 WORD 
ADDRESS OF WRITE I/O AREA - 1 WORD 
SOURCE STATEMENTS START ADDRESS - 1 WORD 
OBJECT CODE START ADDRESS - 1 WORD 

PROG AREA LENGTH (OBJ ENO MINUS PROG TBL START) - 1 WORD 
I/O TIMEOUT COUNT - 1 WORD 




pi. 


B03 

57:7321 lSlC0 ,B - 


000032 

000074 

000035 

00003b 


000122 

000124 

00012b 

000222 

00023b 


pt®LC0= +a>. 
POPMTRs >28. 
PCORDVs +&. 
POftns* *x. 


POSTs >02. 
PSTKCTs >84. 
PSTKSVs >0b. 
PSVREG= >1%. 
PUSRPC= ♦158. 


OEV ROUT MOOEl * COOE - 1 WORD 
CURRENT DEVICE f«*ER POINTER - 1 BYTE 
CURRENT DEVICE • - 1 BYTE 
DEVICE fUCERS - lb BYTES 


OOOOSfc 

PTENO= 

♦4b. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 


PTEHls 

i tifl 

▼"O. 

;USER 

PROGRAM 

TEW»0RARy 

STORAGE 

- 

1 

WORD 

000052 

PTEN2= 

♦50. 

; USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000054 

PTDG= 

♦52. 

; USER 

PROGRAM 

T£f*»ORARY 

STORAGE 

- 

1 

WORD 

QOOObb 

PTE*4= 

♦54. 

; USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000070 

PTEM5= 

♦5b. 

; USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000072 

PTENb= 

♦58. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000074 

PTEM7s 

♦bO. 

;USER 

PROGRAM 

TEff»ORA«Y 

STORAGE 

- 

1 

WORD 

00007b 

PTEN8= 

♦b2. 

; USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000100 

PTEN8= 

♦b4. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000102 

PTEHlQs 

♦bb. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000104 

PTENllr 

♦be. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

00010b 

PTEH12= 

♦70. 

; USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000110 

PTEM13= 

♦72. 

;US£R 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000112 

PTEMIHs 

♦74. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

000114 

PTEN1S= 

♦7b. 

;USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

00011b 

QaM« 

nW* 

♦78. 

;*«R OF BYTES TO TRANSFER ON 

MOVE if«R) 

000120 

PSRC= 

♦80. 

;DOTA SOURCE AOORESS ON MOVE (SRC) 


- 1 WORD 


DATA DESTINATION AOORESS ON MOVE (OS’) - 1 
• OF WORDS (X 2) SAVED OFF STACK - 1 WORD 
STACK WORDS STORAGE AREA - 30 WORDS 
USER’S RO T**J RS REGISTERS STORAGE AREA - 
USER’S CURRENT PROGRAM COUNTER - 1 WCPD 


1 WOPC 

WORD 

fc WC C D5 



•WCEC-U 

: tt nab.pii 

:35 : 

ll 

13 82 

1383 
:3 h* 

I3fc5 

« Jt' 

:3bfi 

:3fe«3 

:3ro 

1371 

;372 

1373 
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SE3 QMib 


;F0LL0MING ENTRIES (°RDIOX THRU PU8MAP) ARE ONLY IN NEW HGHNT VERSION 


; (PRDIOX= ♦lbO. 
; (PRDIOVs ♦IbN. 
; (PURIOXs ♦lbfl. 
;'PU*IOV= *172. 
;(PUPARS= >l7b. 
; (PUPDRS= >192. 
; (PU6HAP= >208. 


18/22 8IT ABSOLUTE AOORESS OF RE AO I'O AREA - 2 WORDS) 
18 BIT VIRTUAL AOORESS OF READ I/O AREA - 2 WORDS) 

18/22 BIT ABSOLUTE AOORESS OF WRITE I/O AREA - 2 WORDS) 
18 BIT VIRTUAL AOORESS OF WRITE I/C AREA - 2 WORDS) 
STORAGE AREA FOR USER’S PAR’S 0 THRU 7-8 WORDS) 
STORAGE AREA FOR USER’S PDR'S 0 THRU 7-8 WORDS - 
1ST UNIBUS HAP REG I AND » OF REGS USED - 1 WORO) 


;END OF HEH HGHNT ONLY ENTRIES 


137S 

0G02HC 

P"5IZE= ♦ lbO. 

; PROGRAM TABLE SIZE IN BYTES 

137b 




1377 

1313 

ir9 


;(PTSIZE= >210. 

: PROGRAM TABLE SIZE IN BYTES 

DCC242 

PTEND= >lb2. 

; EN0 OF PROGRAM TABLE - NON 1 

138C 




.351 


; . PTEND- *212. 

;END OF PROGRAM TABLE - HEM 1 


NON HEN NGHN T 
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i’^iab.pi: roRnfiis for program s device routi* tables 

I3S3 DEVICE ROUTINE TABLE 

138 * 


138S 

138b 

OOClib 

DRTLTh= 78. 

1397 


• 

1388 

1388 

OOOOOO 

CevRSZs *0. 

138C 

1381 

30G0G2 

DEVFW0= +2. 

1 38^ 

000004 

D£VIW1= *4. 

1394 

1385 

00000b 

DEVIW2= +b. 

13% 

1387 

000010 

DEVIW3= *8. 

1386 

1388 

000012 

OEVlWMs +10. 

1400 

1401 

000014 

DEVIW5= *12. 

1402 

14Q3 

00001b 

DEVIWb= +14. 

1404 

1405 

000020 

DEVIW7= +lb. 

140b 

1407 

1408 

000022 

DEVIW8= +18. 

1408 

000024 

D£VDRA= +20. 

1410 

1411 

00002b 

DEVIVA= +22. 

1412 

1413 

000030 

D£VRPS= +24. 

1414 

1415 

000032 

DEVWPS= +2b. 

141b 

1417 

000034 

DHKPAO= +28. 

1418 

1419 

00003b 

0ERPA0= +30. 

1420 

1421 

00004C 

DKILAD= +32. 

1422 

1423 

000042 

DECTAD= +34. 

1424 

1425 

000044 

DTO£AD= +3b. 

142b 

1427 

00004b 

DEVI08= +38. 

1428 

1428 

000050 

DEVDER= +40. 

1430 

1431 

000052 

DVUPRTr +42. 

1432 

1433 

000054 

DVCPRTr *44. 

>34 

>25 

OOCOSb 

DEVBTAs +4S. 

>3fc 
. ■*2'* 

OOOObC 

CVBTDA= *48 . 


;0EVICE RCUTIfC TABLE LENGTH 

DEVICE ROUTiNE SIZE IN BYTES - 1 WORD 
DEVICE ROUTirC FlAGWORO - 1 WORD 
DEVICE INTERFACE WORD • 1 - 1 WORD 

DEVICE INTERFACE WORD » 2 - 1 WORD 

DEVICE INTERFACE WORD «3-l WORD 
DEVICE INTERFACE WORD » 4 - 1 WORD 

DEVICE INTERFACE WORD » S - 1 WORD 

DEVICE INTERFACE WORD lb • 1 WORD 
DEVICE INTERFACE WORD §7-1 WORD (SIZE) 

DEVICE INTERFACE WORD *8-1 WORD (ERR) 

DEVICE REGISTERS AOORESS - 1 WORD 

DEVICE INTERRUPT VECTOR AOORESS - 1 WORD 

DEVICE RE AO PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 

DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 

DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 

DEVICE ROUT REPORT ROUT REL ENTRY AOR - 1 WORD 

DEVICE POUT KILL ROUTINE REL ENTRY AOR - 1 WORD 

DEVICE ROUT ERROR COUNTER REL AOR - 1 WORD 

DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY AOR - 1 WORD 

DEVICE I/O BUSY BRANCH AOORESS (CIOBSY) - 1 WORD 

DEVICE ERROR BRANCH AOORESS (CUPGER) - 1 WORD 

USER NODE PRINT BRANCH AOORESS (ULIST) - 1 WORD 

CHND HOOE PRINT BRANCH AODRESS (CLIST) - I WORD 

CONVERT BINARY TO ASCII BR AOR (BINASO - 1 WORD 

CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORC 



SCO 0418 
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rmflB.Pil FORMATS FOR PROGAAfl & DEVICC ROUTIfC TABLES 


1-439 

1*440 

000052 

DVPOTAr *50. 

1441 

000064 

DVSFUO= +52. 

1443 

000055 

DVSVEC= 454. 

1444 


• 

1445 

144fe 

000070 

DVCVEC= *S5. 

1447 

1449 

000072 

DVTVEC= 45B. 

1449 

1450 

000074 

DVRINTr 450. 

14|I 

1 4§3 

1454 

000075 

DVGETB= *52. 

000100 

DVPUTB= 454. 

1455 

if 

1458 

000102 

DEVSTPx 455. 

000104 

DEVETPr 458. 

1459 

1450 

000105 

DVPTEP= 470. 

1451 

1452 

1453 

1454 

00011C 

DVVTEP= 472. 

000112 

DVCTEP= 474. 

1455 

1455 

000114 

DVIUSP= 475. 

1457 

145B 

1459 

000115 

DRTEND= 478. 

1470 

000001 

.END 


•.CONVERT PACKED DCCIHAL TO ASCII BR AOR (DECASC) 
;ff»G SYSTEM FLAGUORO AOORESS (CSYSFU) - 1 WORD 
; SET INTERWPT VECTOR BR AOR (SETVEC) - I UORD 
; CLEAR INTERRUPT VECTOR BR AOR (ClRVEC) - 1 WORD 
;TEST INTERRUPT VECTOR BR AOR (TSTVEC) - 1 UORO 
; RETURN FROM INTERRUPT BR AOR (RTNINT) - 1 UORO 
;GET DATA BYTE BR AOR (GETBYT) - 1 UORD 
;PUT DATA BYTE BR AOR (PUTBYT) - 1 WORD 
; DEVICE ROUT REL SYMBOL TABLE POINTER - 1 UORD 
; DEVICE ROUT REL ENTRY TABLE POINTER - 1 UORD 
; PACK TABLE EXTEN. REL POINTER - 1 UORD 
; VECTOR TABLE EXTEN. REL POINTER - 1 UORD 
; COMPILER TBL EXTEN. REL POINTER - 1 UORD 
; DEVICE INTERFACE UORD SYMBOL TBL REL POINTER - 1 
;END OF DEVICE ROUTINE TABLE 
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WORD 
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r T iAe.Pi. s>’nbol ’able 



10000C 

00450SP 

002 

D£vDER= rmjsc 
DEV0RA= 000024 

AJRPEP= 

OOOCIO 


DtVETP= 

000104 

Al t ORP= 

X002C 


DE^fcCr 

000002 


00Hb32P 

002 

DFvioe^ 

00004b 

3C%# 

BINASC 

30%54R 

X2 

DCVIVA= 

00002b 

OOOOSbP 

002 

DEVIW1= 

000004 

Brii = 

OCNOOC 


DEVI«2= 

00000b 

b:ti2 = 

OlOOOC 


DEVIW3= 

OOOCIO 

BI T b = 

OOOIX 


OCVlHHs 

000012 

3PI 

00ibfe2R 

002 

DEVI«5= 

000014 

3FIER 

X172SR 

002 

OEvlWb= 

00001b 

BFIYVL 

0C17S2R 

002 

0EVIW7= 

000020 

S T *SL2 

OOOObOR 

002 

0EVJU8- 

000022 

e*RO 

000774R 

002 

DEvor 

oo 

8’rf< 

OClOOOR 

002 

OEVRPS= 

OGOC3C 

::36sy 

cxoesY 

000045P 

00307bR 

002 

002 

DEVRSZ= 

OEVSTP= 

CX30000 

000102 

OUST 

000054R 

002 

DEVHPS= 

000C32 

CLRVEC 

000070R 

002 

DFLGWO 

OOOOC2R 

CNDCNS 

0CN737P 

002 

OHKPAO= 

000034 

cwcon 

0Q21bbP 

002 

DISCNT 

X1314P 

CNDCRD 

004707R 

002 

DISCT1 

X1320R 

CNDO* 

004722R 

002 

OISPST 

OOH23bR 

cndex 

0Q2HS0R 

002 

DISlllV 

004204R 

CNTAOR 

QQl03bR 

002 

DlSUft 

004232R 

CNTOEP 

005112R 

002 

D I SUNN 

OOH14bR 

CNTEOF 

005C30R 

002 

QISUPR 

004224R 

CN T EOT 

OOSOHbP 

002 

DKlLfln= 

000040 

CNTERR 

CNTINT 

881?® 

002 

002 


CNTRRB 

004770R 

002 

ORE GAO 

00Q024R 

CNTSENr 

00514&R 

002 

DRTEND= 

00011b 

CNTSrtG 

00%1SR 

002 

drtlth^ 

00011b 

CNTkflB 

005003R 

002 

DTOERO= 

000044 

coofld 

OOS2SOR 

002 

DVBTOA= 

OOOObO 

CPE SET 

002144R 

002 

DVCNDS 

00Qlb2R 

CRlF 

00%70P 

002 

DVCPRT = 

0000S4 

CSTAT 

00C750P 

002 

DVCPTE 

OOOS34P 

CSt'SFU 

C~PR!0= 

ms* 

002 

DVCTEP= 

DVCVEC= 


CJPGER 

OOOOSOR 

002 

DVGETB= 

00007b 

CJRCNT 

00104 2R 

002 

DVIUSP= 

000114 

CjRFLG 

QGIOHOR 

002 

DVIWST 

000700R 

CJRttSG 

004S21R 

002 

DVNVTE 

OXHHHR 

Ct'CDVLs 

002000 


DVPDTRr 

000062 

C y CPRG= 

040000 


DVPKTE 

0002b HR 

OA T (€R 

0OI024R 

oo: 

DVPTEP= 

000106 

DECASC 

OG0052P 

002 

DVPUTB= 

000100 

DEC*«D= 

000042 


DVREGE= 

Q001b2R 

DE©PAO= 

00003b 


DVREGS 

0001 IbR 

OEPPOR 

002324P 

002 

DVPENO= 

00S340R 

:e.s^h= 

3C30Sb 


: .'p£ y 

30142CP 


DVRGDT 

OVRGNG 

DVR I NT = 

DVSFlCs 

DvfvECs 

DVTVEC= 

DVUPRTs 

DWTEP= 

EOF 

EOFCNT 

EOT 

EOTCNT 
ERCDTB 
FRf®AS 
332 ERR 

ERRADR 
ERRCNT 
ERRCOfl 
ERRCS 
002 ERRCS1 
ERREX 
002 ERRIS 
002 ERRSNN 
002 ERSTAO 
002 ERSTOP= 
002 EVEN 
002 FINCNT 
002 GETBYT 
GTNXTD= 
KSKEEP 
HSKPEffs 
002 HSKPEP= 
HSKPST= 
IFEOF 
IFEOT 
INFONC 
002 INTCNT 
INVBPI 
002 INVDVN 
IOTO 
ISTAT 
IVCTAO 
KILL 

002 KILlEX 
002 LBPI 
LCOUNT 
002 LCRST 
LEVEN 

lnwait 

002 LOCZ 
002 LODD 
002 LOFFLN 
002 wRWIND 


000074 

000064 


000072 
000052 
000110 

88?8igg 

000012R 

001020R 

0G3715R 

003302R 

000022R 

00103HR 

001022R 

003222R 

0C3176R 


003214R 

003330R 


001BS2R 

OOlOHHR 

000076$ 

001000 


OOOOOS 

00520SR 


005322R 

005310R 

88SK» 

000025R 

001S64R 

OOlblOR 

0007M2R 

000732R 

000732R 

000732R 

000732R 

OOOOOOR 

000732R 

000732R 

000732R 
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002 LSPREV 

lstats 

LMAIT 

HISCNT 
HI SCOW 
002 NOCOff»= 

002 NOHAIT 

002 nuk« 

002 OCP*£S= 

002 000 

002 OFFLIN 

002 PASCIN= 

002 PC =5 

002 PCURDVr 

002 POMUftS= 

002 POPNTRs 

002 POST = 

002 PFBBOVz 

002 PFLOC= 

002 PFURORs 

002 PLNGTH= 

PHOLCD= 
002 PNfiHE = 

002 PT€R = 

002 PTftlSG 

POBJSTr 


000732R 



000100 

Q01642R 

oosia* 

Q OOOCfe 

.000007 


000034 


000000 

000004 


002 PRDIOfts 
PRINT 
002 PROCTN 
002 PROGNN 
002 PROfCR= 
C02 PRTEX 
002 PRTIIC 


002 PRTlHD 
002 PSRC = 
002 °SRCST= 


000010 

00011b 

004500R 

000024 

004354R 


PSVREC= 

PSUO 


002 PTEHO = 
002 PTEH1 = 
002 PTEN10= 
002 PTEH11= 
002 PTEN12= 
002 P T Eril3= 
002 PTEN j Ms 
002 P 1 ' * 
002 

DOE c 


020000 

QQ4476R 

00432{>R 

000120 

000022 

000222 

« 

OOOObO 

000102 

000104 

00010b 

000110 

000112 

000114 

000052 

300054 


PTEW * 
PtEHS = 
PTENfe * 


002 PTEfC * 
002 PTLGTH* 


PTOCNT* 

PTSIZE* 


PUT BYT 

pv*:or= 


RfiCrtD 

RBCNT 

R8EXH1 

ROCNT 

RDCON 

RORB 

RE AO 

REfCNG 

REPORT 

REPTBL 

RESREG 

REUINO 

RINTEX 

RINTV 

RPTBRS 

RPTENO 

RPTLP 

RRBCNT 

RTNINT 

RO 


SAVREG 

SETDED= 

SETVEC 

SIZE 

SP = 

SPCON 

SPFUO 

SPOPER= 

SPREV 

STNNflG 

STNNUN 

STONERr 

S7SA0R 




052R 
OOS273R 
001004R 
001774R 


00l7b4R 

004533R 

001134R 

001430R 

004QSbR 


0037bbR 

302 

0013b 4R 

CC2 

00141QR 

302 

Ml34bF 

3C2 

M1Q12R 

302 

000074R 

/-OOOOOC 

302 

X000001 


'43000C2 

•/3o®3 


X000004 

XOOOOOS 


004042R 

000040 

:C2 

OOOObbR 

302 

000C20R 

xoo mt> 

"ira 

002074R 

302 

002070P 

000200 

302 

002112R 

302 

00S214R 

302 

00S224R 

302 

1X0CC 

001162R 

332 

304. 23 c 
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"HINT 002N7QR 

88i m x 

002 TVECT 

Mi§H5 

OOOu/cP 

00N012P 

881 

002 

» 8838? 

US£LJBH= 000200 

M2 URCOfl 
UREIRG 
UREOF 

88f8S8 

0020SBP 

881 

002 

. aes. oooooo 

DOOOOO 

OOS3NC 

000 

001 

002 
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